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PARS PARSE THE MESSAGE SOURCE FILE b-sep-19 4 2 98: 705:14 VAX=-11 Bliss-32 V4.0-742 1 
14-Sep-1984 12:46:23 DL SK SVMSMAS TERS CMSGFIL.SRCIPARSE. 832: oe (1) 


i 


epee parse (ZTITLE ‘PARSE THE MESSAGE SOURCE FILE’ IDENT = 'V04-000') = 


' 
PRR RRRREE RRA AAAE RAHA AAAAAHERE TH HEKAAEHE TERETE AA AAEA AAA ETHER EeEe 


ie COPYRIGHT (<) 1978, 1980, 1982, 1984 


oooo 
SeS2ex2 


; 1 9 

3 ‘ 1 

; 4 1 
3 5 1 
a. : By | 
; » of 

3 8 8 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

; m 504 : ‘* ALL RIGHTS RESERVED. * | 
; 4 * 

. 0011 1 !* THis heer! IS PRN SHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

$ \¢ bo18 1 !* OQNLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

eh 13.1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

; 4 0014 1 !* COPIES THEREOF ag NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

cor, a 0015 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

3 18 Bat $ : * TRANSFERRED. * 

Py :* * 

; 3 0018 1 !* THE ete IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 20619 0019 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; $9 B05 1 :* CORPORATION. * 

3 it * 

3 $§ poss 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
wS - 00 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; 626 0024 1 !« * 

; 0025 1 !# * 

3 $$ b05$ 1 See eR eR eRe eee 

3 1 

; 0028 1 !++ . 

; $3 594 1 ! FACILITY: Message compiler 

3 0 0030 1! 

H $ 0031 #1 i ABSTRACT: 

; ¢ htt 1 i 

.= -% 0033 1! This compiler translated message definition language 

3 ee 0034 1! into object modules 

3 5 0035 1: 

; = 0036 1 | ENVIRONMENT: 

: 4 0037 1! 

3 3 sited ! VAX/VMS operating system. unprivileged user mode, 

; 40 0040 1 ' AUTHOR: Tim Halvorsen, Nov 1979 

3; (4) 0041 1! 

3 $6 sk 1 | Modified by: 

; «64 0043 1! 

; (44 044 1! v03-003 ag oe Greg Awdziewicz 17-Jan-1984 

s 65 045 1! oid upcasing the titles in the Listing output by the 

: 646 0046 1! sue compiler 

; rtf ot : - Add source title and subtitles in this module. 
; (649 049 1! 002 JWT0048 Jim Teague 05-Aug-1982 

: 30 050 Touch up SDL output. 
; 6 26 1} 001 JWT0025 Jim Teague 17-Mar-1982 

; ¥ 53 1: Add the / deliniter oe . IDENT fields 

3; 3 54 1 

; & O08 1 ice 

3 3$ 0089 1 


<v 
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PARS PARSE THE MESSAGE SOURCE FILE ~$ep-1986 02:05: VAX-11 Bliss-32 V4.0-742 
vo4=500 i foseo- 9 13:28:33 DEE SUmgnaSTERscHSer IL SecJPARSE.03201°° «3 | 
3; «58 : 1} | 
; 9 1! Include files 
: 8 | 
; 6¢ 666 } LIBRARY ‘SYSSLIBRARY:STARLET’; ! VAX/VMS common definitions 
i 66 064 1 LIBRARY 'SYSSLIBRARY: TPAMAC’ ! TPARSE definitions | 
i 66 0066 1 REQUIRE ‘SRCS:MSG.REQ'; ! Command definitions | 
| 


sz: | 
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PARS PARSE THE MESSAGE SOURCE FILE ise 1984 02:05:14 VAX-11 Bliss-32 V4.0-742 Page 3. PAI 
v04- 127808- 1382 ? eei88 DISKSVMSMASTER: CMSGFIL. SRCJPARSE.832: 1° (2). v0 
; & 4 1 
; 9 > 34 
; 0 $ 1 ! Table of contents 
Bae Of 1! 
ae - 38 1 
WMD 1 FORWARD ROUTINE 
; 74 10 1 parse_file, ! Parse input file 
ae: pe get_record ! Get next input record 
: 76 19 1 message_init, i Initialize for next message 
TAS 0315 1 message_defn, ! Process a message definition 
; 0314 1 add_message ' Add message to msg defn List 
‘ct 0 15 1 factlity_init, i Initialize for next facility 
; 80 18 1 facility defn, ! Process a facility definition 
; #81 4 17 1 add_facility, ' Add facility to fac defn List 
; 8 18 1 add-symbol i Add symbol to symbol table 
; § 0319 1 Lookup_symbol, ! Lookup symbol in symbol table 
; B4 Base 1 find_eos, ! Find end of message string 
; & 0321 1 find_endvers, ! Store delimited ident/version string 
; $358 1 et_cont_line ! Get continuation Line and plug in 
; OY 03 1 efine literal, ! Define a user Literal 
; & 0324 1 set_title, ' Store title string 
; =o 0325 1 set module ! Store module name string | 
; 90 0326 1 build_version, ! Store undelimited version/ident string 
7. 0327 1 store_number, ! Store/check numeric qualifier value 
; 0328 1 store_string, ' Store/check string qualifier value 
>. ti 1 allocate, ! Allocate dynamic storage 
; 94 03350 1 deallocate, ' Deallocate ge storage 
; 0331 1 comment ; ! Call MDL or SDL to output comment 
; & O36 1 
3; oF 03335 1! 
; 0334 1 ! Storage definitions 
: 99 0335 1! 
; 100 the 1 
: 101 337 1 LITERAL 
z 4 4 0338 1 form_feed = 12, ! Form feed character 
; 10 0339 1 tacit ity butsiz = 9 ; ! Maximum size of facility name | 
: 104 0340 1 prefix_bufsiz = obj$c_symsiz, ' Max size of foci) Oey yt | 
; 105 0341 1 defpre_bufsiz = 9, ! Maximum size of /PREFIX string | 
: 106 O36 1 macro_Bufsiz = 15, ' Maximum size of facility macro name 
; 107 0343 1 symbol _bufsiz = obj$c_symsiz, ! Maximum size of symbol name | 
; 108 0344 1 sym_plus_pre = 9b c_Symsiz, ! Maximum size of ayepes + prefix 
3; 109 0345 1 ident_bufsiz = 1 ! Maximum size of /IDENT string | 
: 110 $08 1 message_bufsiz = 56. ! Maximum size of message text string 
: 11) ? ' title _bufsiz = 128; ! Maximum size of title string 
: 118 19 1 GLOBAL | 
3; (1146 50 1 facility_buffer: BBLOCK pfgcility bufsiz], ! Fogth fey name buffer 
; 115 351 1 facility name: VECTOR T Descriptor of facility name 
; 116 326 1 INITIAL(O, facility_buffer), 
ae 0355 1 message_header: INITIALCOS, ' Cisthead for CODE blocks 
; «118 8 54 1 facil ty nesder: INITIAL(O), ! Listhead for FAC blocks 
3; 6119 55 1 symbol _header: INITIAL(O), ' Listhead for symbol table List 
: 120 0 2$ 1 num_messages: INITIAL(O), ! Number of messages defined 
3; Yar é 1 msg_ space: INITIAL(O), ' Total space used by MSG blocks 
eS § 8 1 num_facilities: ees ' Number of facilities defined 
; 1% 59 (1 fac space: INITIAL(2), ! Total Fpacs needed for facility table 
3 6124 60 1 ! initially 2 bytes (List terminator) 


input_record: 
input_linenum, 
version_buffer: 
version_num : 


° 
= 


FUN" OOONOUNS wir 


PPR NRPS AS 8 A 


phy Bho HTS od 
defpre_buffer: 
prefix_buffer: 
defaul€_prefix: 


default_sev, 
default_lang, 
macro_buffer: 
macro_name: 


Wwr—OOooe 


oc os gy number, 
symbol _Buffer: 
symbol_name: 


severity_value, 
faocnt_value, 
ident_buffer: 
ident_value: 


detail_value, 
lang_value 
userval_value, 
message_buffer: 
message_text: 


WIN — O OONOA MSW $ O OBNOAUNEWN S$ OODNOUVE WN" OOONOUM 


module buffer: 
Literal_name: 
literal_value, 


Line_output: 
new_Tine: 


LITERAL 
shared_bit = 0 
phored_poek = { 
system_bit = 


prefix_bit = 


OOCOCOCOOOOOSSoO 


macro_mask 


s 8, 
literal_flag = 


eee ee eee 


ed a ae ed ee ee ee a ce ee a ee ee ee ee a ee ee a el ce ee ee ee ee ce ee ee ee ee ee el eee ee ce ee ee ed 


Be Be Se Se Be Oe Ge Se Be Be Se Be FH Ge Be Se Se Ge Se Se Ge Se Se Se Ge Se Se Ge Se Se Se Se Ge Se Se Ge Se Se Se Se Se Se Ge Se Se Oe Se Ss Se Se Oe Se Ge Ge Oe Se ee 


= 
2 tt tt  M*QOOOOOOOOOOOOOD 
NOONE WN OOO NOME WN 0 OONOUE WN "OC OONOUS 


—OVDOOWOVULSWN OOO 
Pe ot ot ot ot ot et ot ak et ek 


o 


tparse_block: BB 
PRES 


facility_number, 


PARSE THE MESSAGE SOURCE FILE 


= 1 
system_mask = ¢ 
prefix_mask = 4, 


0; 


LOCK 
ET¢ 


H 8 
Jo~ge0- 138% 9 :05:1 
14-Sep-1984 12:46:2 DISKSVMSMASTER: CMSGFIL. 
(0) ! rgees files acceped as input 
gitle_putsiz , |! Title text buffer 
' Module title text 
(0,title_buffer), 
2], ! Input record descriptor 
! Line number of input record 
gbiSc_symsiz]. ! Version/ident apring buffer 
! Descriptor for version/iden 
(0,version_buffer); 


LengthO] ! TPARSE parameter block 
count = tpa$k_count 
options] = tpa$m_abbrev 

! Current facility number 

TOR [32], ! Flags describing current facility 

Y !' Default prefix buffer 

refix_bufsiz), ! Prefix buffer 5 

e : Syabot prefix for current facility 
(0,defpre_buffer), 

T Default severity 

' Default Language ident number 
macro_bufsiz), ! Macro name buffer 
¢ ! MDL macro name for facility 

»macro_buffer), 

' Current pessage number 
gyebot byfsiz). ! Symbol name buffer 
2 ! Syabol. name descriptor 
0,symbol_buffer), 

T Severity for message 
' FAOCNT value 
dent_bufsizJ, ! IDENT string buffer 
} ! IDENT descriptor 
-ident_buffer), 
' DETAIL value 
' LANG numeric value (see S$MSGDEF) 
' USERVAL value 
ssage_bufsiz], ! Message text buffer 
! Message text descriptor 
-message_buffer), 
b)Sc_syasiz). ! Module name string buffer 
° ! Descriptor of Literal symbol name 
! Value to be assigned to Literal 


BYTE ' True if Line was output 
INITIAL (true); ' True if new Line should be started for comment 


—~ SSS 


VAX-11 Bliss-32 V4.0-742 Page 
FIL.SRCIJPARSE .832;1 (2 
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PAI 
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PARS PARSE THE MESSAGE SOURCE FILE 18-Sep-1984 9 03:38 VAX=11 Bliss-32 V4.0-742 
V04= 14-Sep-1984 12:46: DISKSVMSMASTER: CMSGFIL.S 
ry ¢ tig | 
a 419 1! External storage 
> 184 420 1! 
; 185 421 1 
3 3 4 4 1 EXTERNAL 
a 4 1 cli_flags: BITVECTOR, ! CLI qualifier bitmap 
= 424 1 module_name: VECTOR, ! Module name descriptor 
; «189 425 1 input_fab: BBLOCK, ' Input file FAB 
; 190 4 § 1 input_rab: BBLOCK; ! Input file RAB 
; 191 4 1 
; 136 0428 1! 
; #19 429 1 ! External routines 
> 194 4350 1! 
3 1% a 
; (196 Be ¢ 1 EXTERNAL ROUTINE 
3; «(197 4 1 Line_with_value, ! Output a Line with a hex value 
: 198 8 4 1 echo_record, ! Output a Line w/only record 
; «6199 .) new _page, ' Cause a page eject 
; 200 0 3 1 syntax_error ! Report syntax error 
; 201 0 1 LibStparse: ADDRESSING_MODE (GENERAL), arsing routines 
; 4 0438 1 Lib$Sget_vm: ADDRESSING MODE (GENERAL) ! Allocate dynamic storage 
s 0439 1 Lib$free_vm: ADDRESSING_MODE (GENERALS, ! Deallocate dynamic storage 
3; 206 0440 1 rms_error, ' Signal RMS-type error 
: 205 0441 1 mdl_start struc, ! Start structure definition 
; 206 0 tg 1 md\_define_constant, ! Define message or Literal constant 
; 207 04435 1 mdl_end_struc, ' End structure definition 
; 208 0444 1 mdl_comment, ' Output a comment 
3 344 Ree? ' mdl_put_record, ! Output a record 
3 if 0447 1 sdi_start_mod, ! Start SDL module definition 
3 $i¢ 0448 1 sdl_define_constant, ' Define necaage or Literal constant 
: $1 0449 1 sdl_end_mod, ' End SDL module definition 
: 214 0450 1 sdl_comment, ' Output a comment 
: 215 0451 1 sdl_put_record; ! Output a record 
; 216 0452 1 
; 217 04535 1 ROUTINE mull: NOVALUE =; 


-TITLE PARSE PARSE THE MESSAGE SOURCE FILE 
-IDENT \V04-000\ 


-PSECT SOWNS,NOEXE,2 
00000002 00000008 00000 leant 


8, 2 

. 00008 “BLKB 28 
00024 FACILITY_NUMBER: 

00028 FACILITY_FLAGS: , 

0002¢ DEF PRE BUFFER: : 

00035 “BLKB 3 

038 PREF IX_BUFFER: 
KB 31 


90057 “BLKB 
00000000 00058 DEFAULT_PREF IX: 


J 8 


PARS PARSE THE MESSAGE SOURCE FILE 16-Sep-1984 :05:1 VAX-11 Oiisee -32 V4.0-742 
v04- 1a-8ep-19 4 96:02 33 DISKSVMSMASTER: CMSGFIL. SRCIPARSE. B32- 79 © 2 
«LONG 0 3 
00000000' 8 05 “ADDRESS DEFPRE_BUFFER : 
060 DEFAULT SEV: 


KB 
00064 DEFAULT_LANG: 
00068 MACRO_BUFFER: 

BLKB 


«LON 
00000000' $00? f »-ADDRESS MACRO_BUFFER 3 
80 MESSAGE_NUMBER: 


KB 
00084 SYMBOL_BUFFER: 
~BLKB 


31 
00A3 “BLKB OY 
00000000 O00A4 SYMBOL =NARE ‘ 
00000000" 000A8 “ADDRESS SYMBOL_BUFFER ; 
OOOAC SEVERITY. VALUE: " 
00080 FAOCNT -VALUE : ; 
000B4 IDENT_BUFFER: 
-BLKB 15 
0003 “BLKB 1 
00000000 000¢4 IDENT_VALUE : ‘ 
00000000' 000c8 “ADDRESS IDENT_BUFFER : 
OOOCC DETAIL_VALUE : : 
000D0 LANG_VALUE : 
000D4 USERVAL_VALUE: 
000D8 MESSAGE_BUFFER: 
256 


BLK 
00000000 001D8 MESSAGE oral 


0 
00000000' pope ADDRESS MESSAGE _BUFFER : 


} 

| 

| 

| 

| 

: 15 

00000000 80078 MACRO Nae : 
01E0 MODULE_BUFFER: 
-BLKB 


31 
oolrr “BLKB 1 
200 LITERAL_NAME : - 
00208 LITERAL VALUE: : 
0020C LINE OUTPUT : 
“BLKB 3 
00000001 80310 NEWLINE? ; 


-PSECT S$GLOBAL$,NOEXE,2 
00000 FACILITY _BUFFER:: 
| 


PARS PARSE THE MESSAGE SOURCE FILE 
vou=600 


00000000 


0000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000002 
00000000 


00000000 
00000000" 


00000000 
00000000" 


; Routine Size: 3 bytes, Routine Base: $CODE$ + 0000 


1823 


S000 
B0014 
00018 
0001C 
00020 
00024 
00028 
0002C 
00030 
00034 
00084 


00088 
000BC 


000C4 
000C8 


Q00E7 
000E8 


OOOEC 


5 
$ep-1984 VAX-11 Bliss-32 V4.0-742 7 
Sep -1382 95: 2: 4 DISK Syme TER: CMSGFIL.SRCIPARSE. B32. 79° (2) 
-BLKB 
-BLKB 
FACILITY NAME 
«ADDRESS FACILITY BUFFER : 


MESSAGE -HEADER? 
FACILITY HEADER: 
SYMBOL HEADER: : 
NUM_MESSAGES: : 
MSG_SPACE:: 
NUM_FACILITIES:: 
FAC_SPACE:: 
NUM_FILES:: 
TITLE BUFFERS: 
TATLE TEXTS: 


28 


o- oN CO CO oO CO Oo” 
. 


- ADDRESS TITLE_BUFFER : 


INPUT -RECORD: : 

INPUT_LINENUM: : 
-BLK 

VERSION_BUFFER: : 
-BLKB 


0000 00008 NULL:  .WORD 
4 00002 R 


INPOT FAB, INPUT_RAB 
TH VALU 


SDL DEFINE CONSTANT~ 
SDL-END_MOB, SDL_COMMENT 
SDL “BUT “RECORD 
SCODES,NOWRT,2 


Save nothing ; 0453 


PAF 
VvOé 


FETS oo PARSE THE MESSAGE SOURCE FILE 1b-se ge- 138% 96: 93: Mf 


VAX= 
~Sep- DISK “ERCIPARSE.B32-99° (25 


THE MESSAGE SOURCE FILE 
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Message definition language parse tables 


CoOoCooooo 
Fe et et et et et oe 
QOuMmnTUIW 
OOONOUS 
— — ss ss 


MACRO ap_setup = BUILTIN AP; MAP ap: REF BBLOCK%: 
ROUTINE Set_number = (ap_ setup; ap Ctpast_ number] = .ap Ctpa$l_param]; true); 


0000 00000 SET_NUMBER: 


WOR Save goth ine 
—- & 20 AC 00 6008 MOVL 32(AP), 28(AP) 
50 01 00 0000 MOVL #1, R 
04 OO00A RET 


; Routine Size: 11 bytes, Routine Base: S$CODE$ + 0003 


6 0461 2 ROUTINE find_bracket = (ap_setup; BUILTIN CALLG; ap Ctpa$l_char] = '>'; 
7 0462 1 callg(.ap, find_eos)); 


0000 00000 FIND_BRACKET: 
WORD Save cosh ing 


18 AC 3E pO 00002 MOVL #62 
0000v CF 6C FA 00006 CALLG (AP), Fine. _E0S 
04 00008 RET 


; Routine Size: 12 bytes, Routine Base: S$CODE$ + OOOE 


3 $8 $663 ! FORWARD ROUTINE init_stack; 

: $0 Ree? ‘ Sinit_state(parse_states,parse_keys): ! Define start of parse table 

; 3 0467 1! 

; 2 0468 1! Dispatch to the various command parsers 

3 ¢ be$8 74 

; 5 470 1 

: 236 P 0471 1 $state(, . 

3 4 be 78 : (tpa$_lambda,,init_stack)); ! Init the stack each time thru 
: 239 p 474 1 $state(, ) 

3 va oe? ' (tpa$_lambda,,message_init)); ! Imit message cells each time thru 
; ri} P pero 1 $state(main, 

; 26 P rth 1 ((contin) ,main,get_cont_line), 

> 244 P0479 1 q*y* gba. exit,comment);, 

3 6245 P 0480 1 (toa aos t3 thas exit), 

: rf P Be Be rect 

3; 24 P 0482 1 betel” sh 3) vet snteien, store_string,.,. 


Pete Se Se 


9 
* (3). 


0460 


0461 
0462 


v0’ 
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PARS PARSE THE MESSAGE SOURCE FILE 16-Sep-1984 02:05:14 VAX-11 Bliss-32 V4.0-742 Page 10) 
v002500 12288-1382 95:08:34 DISKSVMSMASTER: CMSGF IL. SRCIPARSE.B32:1> (3) | 
me | PLIT(symbol_name,1,symbol_bufsiz))); 
2 P $state(directive ; 
P ("FACILI TY’, facility, facility_init), 
5 P ("SEVERITY',severitys, 
5 P £ LANGUAGE |. Language) . 
5 Pp (‘IDENT ,identl), 
5 P ("BASE' base), 
5 P (*LITERAL', Literal_stmt), 
5 Pp ("PAGE -end_line,new_page), 
5 P ("TITLE' tified, 
2 ("END',end_line,facility_init)); 
6 ' 
Check for continuation Line (trailing dash followed by eos or comment) 
Sstateteent ip 
P $state(, : 
P ("!* tpa$S_exit,comment), 


p ~” 
(tpa$_eos,tpa$_exit)); 
' 


| 
| 
| 
| 
Come here after command processed - check for end of string or comment | 


$state(end_line, 
((contin),end_Line,get_cont_line), 
Coad eeecerie comment). 
pa 


vvv 


eos, tpa$_exit)); 


Process FACILITY command to set facility name and number 


Setavetteg titty. : 2 
aegene n),facility,get_cont_line), 
(tpa$_ lambda, facl0)); 


vvv 
SOOOCOOOOSOOOCCOOCOOCO COCO OOOSS OOS OOOCCOSOOCOOCOOCOOOOOCOOOOOCOOO. 


0000 09 09 00 09 09 09 08 SI NI NII NOOO OOO 
~~ 


DONA VE WN SO OONOUE WN OC OONOUE WR“ OOODNOULS WhO 


8 P $state(, 

ey ((facil_qual),facility)); 

35 P $state(facl0 : ery rae 5 
(tpa$_symbol,,store_string,..PLIT(facility_name,1,facility_bufsiz))); 
95 P $state(facl5, : 

96 P ((contin),faci5,get_cont_line), 

97 P (*,°), 

4 (tpa$_lambda)); 

00 $state(facl8, 


(contin), faci8,get_cont_ Line), 
((expression).,$ ore_number,, 
PLIT(facility_number.0,1* (SF IELDWIDTH(sts$v_fac_no)-1)-1))); 


wvvvD 
NH eee ee ee ers si sh dh Ab db Ab dh Ab Ab Ab Ab Ah Ah Ah ah ah ah ah Ah ah a a ah ah ae et et det det et dl edt at et et tet tet et et at et 


WAIANAE RINDI NINININIDN 2 3 OOO MOO OCOCOCOCOCOCOCOCOOOOOOOOOOWWO@MMOMmoo 


DONO AS WN OC OD NO NE WIN © OD NAME WIN 9 OD NOU EWN | 0 OONOV EWN OVD ONOUL Ww 
a ee a a ee ee ee ee ee ee ee a a a dd 


AWA IPPININININININININNINIPINININININININ NNN fronofnonopnonyopnononononony 


Fan 
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PARS PARSE THE MESSAGE SOURCE FILE 16-Sep-1984 02:05:14 VAX=11 Bliss=32 V4.0-74 P 1 
vOe=600 14 Saat 13:88:23 SKSVMSMASTER:(M PIL SRCIPARSE.B32-1°° 3) 


P $state(fac20, 
4 ({contind , fac20.get_cont_tine), 
(tpa$_lambda,end_Line, facility_defn)); 
P tstate(, 
((facil.qual),fac20)); 
Sstate(facil qual. 
(*SHARED' ,tpa$_exit,,shared_mask,facility_flags), 


(*SYSTEM’ ,tpaS_exit,,system_mask,facility_flags), 
('PREFIX', fac_prefix), 
("MACRO', fac_macro)); 


vuvvU 


Sstate(fac_prefix, 
("=") 


(':")5; 


vv 


vv 


$state(, 
(tpa$_symbol,tpa$_erit,store string,,, | 
PLIT(default_prefix,1, defpre_bufsiz))); 
$state(fac_macro, 
(*s*) 
(':")5; 


$state(, 
Saped_sygor) toes n't Spare ste ing.» 
PLIT(macro_name,1,macro_bufsiz))); 


WN — OO OONAUE WN“ OVOONOUS WN O0O@W u 
vv 


vv 


‘ Parse .IDENT specification 


$state( ident! 

((contin), ident1,get cont_line), 
(tpa _symbol, iden 2,Build-version), 

~~ Identg-find-endvers) 


vuuvuvU 
COOOOOCOCOCOCOCOOCOOCOCCOOCOCO OOOO SSSOOSOSsIOCCOCOOCCOOOCSCODOOOOOSCOOOOOOO 


('**8 ident -find_endvers), 
("/", identé,find_endvers) ); 


ane FERRARA 
OU lwn—O0Oneu 


S 


$state( ident2 
((contin), ident2,get_cont_line), 
(tpa$_lambda,end_ ine) ); 


vv 
DLV PULP PV LUD PUPV PUPS PUSVPUSDVSUSUSTSUSUSUSUS USSU USSU ISI SUSI ISIS 


109 0009 09 09 09 SI NINN SNS NS SS SOA AAA AAA A A MMIII BBP PEE EEE 


: Parse .SEVERITY command to set default severity 


Satetetsever tty. : 
((contin),severity,get_cont_Line), 
((parse_severity),end_Tine,Store_number,,, 
PLIT(de ault_Sev))5; 


PAAA GAIN 
vvvD 


—OOOnoe VIEW —-O0On 


OOO0O00O0OMMOC 
Soe SSSR BS SSNS ARN — OO o0 Wn PW > DOO OU dN O00 OW OR > 


ee ce a em ee ee ce ee ee ed ed od od ed 


PAA 
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14-Sep-1984 46: 


338 : Parse .BASE command to set new message number 

: 

P 0600 $state(base, 

P 0601 ((contin) ,base,get_cont_line), 

P 060 (Cexpression) ,end_Cine,store_number,, 
603 PLIT(message_number ,0, 1°SF IELOWIDTH(sts$v_code)-1))); 
605 


! 
Parse .LITERAL command to define Literals 


Sstate(Literal_stmt 
((contin), Literal_stmt,get_cont_Line), 


(tpa$_ lambda, ,set-number,,.1)); ! Default Ist Literal = 1 


vv 


v 
SOOCOOCOOCOCOOOCOOOOOoOOCOoOO 
FRSSSSSSSSSS ROSS PSOE 
MINIM — 3 2 OOOO 


$state(, 
(tpa$_lambda,,store_number,,,PLIT(Literal_value))); 


$state(next_literal, 
contin) neat. Tyerek Get cont. tine? . 


vv 


; 1 

r 1 

; 1 

3 1 

: 1 

3 1 

3 1 

3 1 

3 1 

3 $ 1 

; 1 

; ta 

; 9 1 

3 0 1 

3 ia 

; § 1 

3 1 

3 4 1 

3 5 1 

; $ 1 

3 1 

F so 

; , : (tpa$_symbol,,,,literal_name)); 
; P 1 1 $state(, 

Py P ¢ 1 ‘s* € 

$ Pp 1 he le 

; : : (tpa$_lambda,set_literal)); 

: P 0626 1 $state(, 
3 bese ; ((expression),,store_number,,,PLIT(lLiteral_value))); 
3 Pp +494 1 $state(set_literal, 

; bess : (tpa$_lambda, ,define_literal)); 
3 P boas 1 $state(end_Literal 

: P 0633 1 *T* next_Literal) 

; 0634 1 (tpa$_lamBda,end_line)); 

; 0635 1 

$ 0636 1! 

; +t 44 : : Parse .LANGUAGE command to set default language 
é 639 1 

3 P 0640 1 Setenettonguert. 

3; & P 0641 1 ((contin), Language get.cont tine). 
; 4 P BOt¢ 1 ‘(parse_long) .on _[ ne,store_number,,, 
; 408 0645 1 PLIT(default_lang))); 

; 409 44 1 

; 410 45 1! 

; «411 ore 1! Parse .TITLE command 

: tig 4 1! 

: 41 ose 1 

i 414 P 0649 1 $state(title, P 

3; 6415 P 0650 1 ((contin) bitle.get. cont Line), 
; 616 651 1 (tpa$_symbol,,se _moduley); 

: 417 626 1 ; 

; 418 P 0655 1 $state(title2, 


. 
* 
. 
. 
. 
o 
. 
o 
. 
a 
. 
. 
. 
& 
. 
* 
. 
oO 
. 
. 
. 
o 
. 
- 
. 
e 
. 
. 
. 
o 
€ 
7 
o 
. 
* 
. 
6 
. 
o 
. 
. 
. 
° 
. 
* 
. 
* 
. 
. 
. 
2 
7 
* 
7 
° 
. 
o 
. 
. 
- 
° 
. 
* 
7 
. 
. 
e 
. 
. 
. 
° 
. 
° 
° 
* 
oe 
~ 
a 
. 
° 
- 
o 
~ 
° 
. 
° 
. 
° 
* 
° 
. 
. 
. 
© 
~ 
on 
. 
° 
. 
2 
. 
a 
. 
* 
. 
° 
. 
. 
. 
. 
. 
o 


Ww 


PPA UIT 


oo 
WN =O OONOUES WN —OOOn 


PELL LLL LLLP EE 


Pp 
P 


vv 


ee ee ee ee a ee ee ee ee ed ed ed 


eee ghey ott leg. -get_ cont. pSnet 
(tpa$_any,end_lLine,sét_ti 
(tpa$-symbol ,end_ Line Set_ "felon, 
(tpa$_Lambda,end-Line)); 


H Parse message definition Line 


$state(definition 
(contin) ; Sdefinition, get_cont_Line), 
("<* deft, find bracket), 
("'* defl,find_eos)); 


$state(, 
((def_qual) ,definition)); 


$state(defl, 
((contin) ,defl,get_cont_line), 


(tpa$_lambda,end_lLine,message_defn)); 


$state(, 
((def_qual),def1)); 


$state(def_qual, 
vere severity),tpa$_exit,store_number,,, 
al severity. Value)), 


ETAIL' detail). 
lang), 
_VALUE' ,userval)); 


$state(f 


$state(, 
saath *4 |} tpa$_exit,store pygber ee. 
(faocnt_value,0,37)) 


Satotet ident. 
(':")5; 


een (tpas bol,tpa$ it,st t 
pa ~Synb ol,tpa$_exit,s ore strin 
IT Cident_value,1, ident “patsiz))): 
$state(detail, 
“es 
(":")5; 
$state(, ; ; 
((expression) ,tpa$_exit,store_number,,, 


VAX=11 Bliseese v4 


—__—_—__- —-—— - ee ) 
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: 47 711 «1 PLIT(detail_value,0,255))); 

s 67 ar 1 

; 47 P0715 1 Sstate(lang, 

; 47 P0714 1 ('s") 

: 480 715 1 ('s")5; 

> 481 ay 1 

: a8 91! Be lmsees Lang) ,tpas_exi b 

: i arse_lang) ,tpa$_exit rte _number,,, 

: 484 o719 1 . (1? lang, values) 

; 485 720 1 
; 486 P 0721 1 Sstate(userval, 

; 487 P 07 ¢ 1 (*2*) 

: 488 725 1 (":")S; 

; 489 724 1 
: 490 P0725 1 $state(, | 
; 491 P 0726 1 (Cexpression) ,tpa$_exit wy number,,, 
3 49 0727 1 PLIT(userval_value,0,255))); 
: 49 0728 1 | 
: 4946 0729 1! 

: 495 0730 1! Translate the language keyword into a number 

; 496 0731 1! 
: 497 07 ; 1 

; 498 P 07 1 $state(parse sat | 
3; 499 P0734 1 CTENGL TS ,tpa$_exit,set_number,,,mrec$c_english), 

; 500 P0735 1 (*FRENCH',tpa$_exit,set_number,,,mrec$c_french) 
; 501 0736 «(1 ("GERMAN' ,tpaS_ exit.set~ number,,,mrec$c "mepeatti 
3 ote 0737 1 

; 30 or 38 1! 

; 504 0739 1! Translate the SEVERITY keyword into the severity number 

; 505 0740 1! 

: 506 0741 1 

; 507 P 4544 1 $state(parse_s sever i ty. 

; 508 P0743 1 ("FATAL' tpa exit,set_number,,,sts$k_severe) 

3; 509 P0744 1 ("SEVERE toas ¢ exit,set_number,,,sts$k_severe 

; 510 P0745 1 (* INFORMATIONAL’, tpaS_exit,set_number,>,sts$k_info), 

3; STi P 0746 1 (* SUCCESS® ,tpa$_exit,set _number,,,sts$k_ success), 

3 21g P 0747 1 (*ERROR' tpa exit set _number,,,sts$k_error) 

3 az 544 : (*WARNING' -tpas_ exit, sét_number,,,sts$k _warning)); 

; #515 0750 1 ROUTINE null2: NOVALUE = 


-PSECT _LIBSKEY1$,NOWRT, SHR, PIC,1 
0000 ; TPASKEYSTO 


U . . . 0 | 
59 54 49 4C 49 43 41 46 00000 ; TPASKEYST 
27: ASCII \FACILITY\ : 
FF 00008 -BYTE =1 3 
00009 ; gTRASKEYSTO 0 
59 54 49 52 45 56 45 53 00009 ; TPASKEYST 
34: ASCII \SEVERITY\ $ 
FF 600 “BY -1 3 
$b12 STPASKEYSTO | 
0.38: 0 


ah, 
PARS PARSE THE MESSAGE SOURCE FILE 16-Sep-1984 
Neary, rat Yo meting soct rt 14- Sep-1984 95:03 


4E 


ee 


45 47 41 


55 47 


00012 ; TPASKEYST 
40: ASCII 


Y 
$0018 ; TPASKEYSTO 
44: L 

0001B ; TPASKEYST 


46: «ASCII 
su 
0021 ; TPASKEYSTO 
00021 


00086 1 


00026 


D008 1 


c--c 


ce 
. —te 
> 
A 
x 
m 
~< 
nm" 
“~ 


ce. 
SPO ee wow 
> or oO 


~m 
. 
o> @ o> 
<n ro-~< 
4° xX = 
me m 
_ 


ce. eo“. 

. —e. 

or 
A-- 
x 
m 
~< 

_ om 

or-—@W 

a = 

4a x 

_ 

Cael 


YTE 
asxeyst0 
Q002E ; ASKEYET 


-ASCII 
0003 BYT 
0003 : TPASKEYST0 


v. L 
00033 : TPASKEYST 
71: AS 


U. CI! 
00038 -BYTE 
00039 ; TPASKEYSTO 


LK 
00039 : TPASKEYST 
U.77: ASCII 
0N03C 


-BY 
00030 ; TPASKEYFILL 
U.81: BY 
OO03E ; TPASKEYSTO 
0003E 


00044 
00045 


C0045 


1 

P 

1 

P 

1 

P 

1 
00048 

0004C ve 

P 

1 

P 

1 

P 

1 


ce. on, 
—-« 


co 
N 


cad 
m 
< «< 
nen 
40-4 
oO 


0004C 


0005 
0005 


00053 ; 


OP SRSA OCSeNF MHO 
ee ee x o- FKee 
mn 
Oo 


7 ane 


ASCII 
00038 -BYTE 
59 ; TPASKEYFILL 
U.166: .BYTE 
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DISKSVMSMA 


b enpnetecet 


oO 


ate 


0 
wae 


0 
ye" 


0 
_ 


0 
Sad 


em 


0 
Agtesem 


0 
were 


0 
ey 


o1 
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PARSE THE MESSAGE SOURCE FILE 18- ~300- 138% 0g: 13: VAX-11 Bliss-32 V4.0-742 Pa age 1 
-Sep-1984 746 DISKSVMSMASTER: CMSGFIL.SRCJPARSE.B32; 1 (3 
OO0SA ; A TORKErSTO. 0 
54 4E 55 GF 43 SF GF 4% 46 OQOOSA DEPASKEYET 
0.320: . ASCII \FAO_COUNT\ ; 
eee Mite Ce 
4E GF 49 54 41 43 49 46 49 54 4E 45 44 49 00064 ; TPASKEYST 
U.326: .ASCII \IDENTIFICATION\ : 
FF 00078 -BYTE -=1 : 
OS creer 0 
4C 49 41 54 45 44 00073 ; TPASKEYST 
U.332: .ASCII \DETAIL\ : 
FF 00079 BYTE -1 : 
0007A ; TPASKEYSTO 
U.336: .BLKB 0 
45 47 41 55 47 GE 41 4C OOO7A ; TPASKEYST 
U.338: .ASCII \LANGUAGE\ : 
FF 0008 -BYTE -=1 : 
00083 ; TPASKEYSTO 
U.342: .BLKB 0 
45 55 4C 41 56 SF 52 45 53 55 00083 ; TPASKEYST 
U.344: .ASCII \USER_VALUE\ : 
FF 0008D BYTE -1 : 
FF QOO8E : TPASKEYFILL 
U.348: .BYTE -1 3 
0008F VFPASKEYSTO 
U.388: .BLKB 0 
48 53 49 4C 47 4E 45 O008F ; TPASKEYST 
U.390: .ASCII \ENGLISH\ ; 
FF 0009 -BYTE -=1 3 
00097 ; TPASKEYSTO 
U.396: .BLKB 0 
48 43 4E 45 52 46 00097 ; TPASKEYST 
U.398: ASCII \FRENCH\ ; 
FF 00090 -1 3 
OOO9E ; TPASKEYSTO 
U.404: .BLKB 0 
4—E 41 4D 52 45 47 OQOO9E ; TPASKEYST 
U.406: .ASCII \GERMAN\ : 
FF QOOA4 -BYTE -=1 3 
FF QOOAS ; TPASKEYFILL 
U.412: .BYTE -1 : 
O00A6 ; TPASKEYSTO 
U.413: .BLKB 0 
4C 41 54 41 46 OQOOA6 ; TPASKEYST 
U.415:  .ASCIIT \FATAL\ : 
FF QOOAB BYTE -=1 3 
OOOAC ; TPASKEYSTO 
U.421: .BLKB 0 
45 52 45 56 45 53 OOOAC p TPARKEYS! 
U.423: .ASCII \SEVERE\ ; 
FF 8 0B -BYTE -=1 ; 
OBS ;TPA KEYSTO 
U. 429: .BLKB 0 


4C 41 GE 4F 49 54 41 4D 52 4F 46 4E 49 00083 ; TPASKEYST 
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FF 


53 53 45 43 43 55 53 
FF 


52 4F 52 52 45 


FF 


47 4— 49 4E 52 41 57 


85F6 
00000000v 

85F6 
00000000v 


99F8 
0000* 
00000000v 
0000+ 
9021 
00000000v 
FFFF 
11F7 
FFFF 
102E 
0000* 
97F 1 


00000 
00000 
00002 
00006 
00008 


0000C 
0000C 


0000E 
00010 
00014 
00016 
00018 
0001C 
QOO1E 
00020 
00022 
00024 


.PSECT 
PARSE_STATES:: 


-BLK 
; TPASTYPE 
U.2: . WORD 


: WORD 
ASSUBE XP 


VAX-11 Bliss-32 V4.0-74 


NF ORMATIONAL \ 


0 
Meat 


_—— 


1 


_LIBSSTATES,NOWRT, 


-31242 


<<INIT_STACK-U. 35>=4> 


-31242 


SHR, 


SORSIASE INE TG. 5-42 


-26120 
<<U.7-U.8>-2> 


<<GET_CONT_LINE=U.9>=4> 


<<MAIN-U.10>-2> 
-28639 


<<COMMENT-U.12>-4> 


-1 

4599 

-1 

4142 

<<U.17-U. 18>-2> 
-26639 


714 2 

:23 DISKSVMSMASTER: CMSGFIL.SRCIPARSE.B32 
\l 

-1 


PIC,1 


ree 


PAR 
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01 
00000000' 
00000000v 

0000+ 


9100 
00000000v 
0000+ 
1101 
0000+ 
1102 
0000* 
1103 
0000+ 
1104 
0000+ 
1105 
0000+ 
9106 
00000000* 
0000* 
1107 
0000+ 
9508 
00000000Vv 
0000* 


042D 
9021 


Sep-1 VAX-11 s-32 V4.0-742 8 
1b-se Ha Pi 95:93 DISK$V nen TER: CMSGFIL. SRCIPARSE. B32. 79 ‘3 
00028 ; TPASFLAGS2 
0.20: BYTE 1 : 
vane jIASPARAR ness P.AAA 
_— MS rae STORE_STRING 22>-4 
wae: n << NG-U.22>-4> 3 
endl rhea | Pe 
24: . <<U.23-U. 24>-2> ; 
00033 grigective 0 
nent joer ee on 28416 
— We eae FACILITY_INIT“U.29>=4 
.29: © << NIT“U.29>-4> é 
00039 NL olay 4 ee 5 2 
.31: z <<U.30-U. 31>-2> 3 
00038 ; TPASTYPE 
U.35: 4 4353 : 
00030 Ts a ab. Mt. Shand 
eat: ‘ <<U.56°U.5/>-2> 5 
OOO3F ; TPASTYPE 
U.41: i 4354 : 
00041 ; TPASTARGET 
U.43: oW <<U.42-U.43>-2> 3 
00043 ; TPASTYPE 
U. 47: WORD 4355 : 
00045 ; TPASTARGET 
U.49: <<U.48-U.49>-2> : 
00047 ; TPASTYPE 
U. 53: ~WORD 4356 3 
00049 ; TPASTARGET 
U.55: <<U.54-U.55>=2> 3 
00048 ; TPASTYPE 
U.59: 4357 3 
0004D ; TPASTARGET 
U.61: <<U.60-U.61>-2> 3 
0004F ; TPASTYPE 
U. -28410 3 
00051 ; TPASACTION 
U.66: <<NEW_PAGE-U.66>-4> 3 
00055 ,TBASTARGET U.67-U.68>-2 
<<U.67-U.68>-2> : 
00057 ; TPASTYPE 
0.72: .WO 4359 3 
00059 ; TPASTARGET 
0.74: .WO <<U.73-U.74>-2> $ 
00058 ; TRASTYPE 
0.78: ~27384 3 
0005D ; TPASACTION 
0.79:  .LONG <<FACILITY_INIT=“U.79>=4> 3 
00061 ; TPASTARGET 
0.80: WORD <<U.67-U.80>-2> : 
00063 ; pcgut ie 
U -BLKB 0 
00063 ; TPASTYPE 
U.82: WORD 1069 § 


00065 TTPASTYPE 


PAR 


—————_—_—_—_—_—— 
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18-Sep-1986 02:05:14  VAX#11 Bliss-32 v4.0-742 9| 
rneen8he FS:88:3 Peete Re Metre apanse.as2ng” «ds, 


ibn 


00000000v 
FFFF 
15F7 
FFFF 


99F8 
0000* 
00000000v 
0000* 
9021 
00000000Vv 
FFFF 
15F7 
FFFF 


99F8 
0000* 
00000000v 
0000* 
002F 
15F6 
0000+ 
1D0F8 
0000* 
0000+ 


87F1 
01 


00067 
00068 
00060 
0006F 
00071 
00071 
00073 ; 
00075 
00079 
00078 
00070 
00081 
00083 
00085 
00087 
00087 
00089 
00088 
0008F 
00091 
00093 
00095 
00097 
00099 
00098 
00090 
00090 
0009F 


U.83: WORD 
; TPASACTION 
U.84: «LON 
; TPASTARGET 
5; WORD 


U. 67: .BLKB 


iBABACTION 
+ TPASTARGET 


D 
sTBABACTION 
; TPASTARGET 

.WO 
; TPASTYPE 
53 WORD 
; TPASTARGET 
- WO 
FACILITY 
U.30:  .BLKB 
 TPASTYPE 
7: _ ,WORD 
; TPASSUBEXP 
; TPASACTION 


; TPASTARGET 
U.1 : 


-28639 
<<COMMENT=U.84>-4> 
-1 

5623 

-1 

0 

-26120 
<<U.7-U.89>-2> 
<<GET_CONT_LINE=U.90>-4> 
<<U.67-U.91>=2> 
-28639 
<<COMMENT=U.93>=-4> 
-1 

5623 

-1 

0 

-26120 
<<U.7-U.98>-2> 
<<GET_CONT_LINE-U.99>-4> 
<<U.30-U.100>-2> 
47 

5622 
<<U.105-U.104>-2> 
7672 
<<U.106-U.107>-2> 
<<U.30-U. 108>-2> 

0 

-30735 

1 


v04=600 
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k m. 
© 5:14 VAX-11 Bliss-32 V4 
1e-80p= 1382 93:28:3g ee We 
00000000' OO0A0 preage ARAM 
U.111: _ ADDRESS P.AAB 
00000000V OO0A4 ; TPA ACTION 
Ug: + LONG S<STORE. STRING-“U.112>-4> 
99F8 ROOAB TEAS TYPE 
U.113: .WORD -26120 
0000* OOOAA ; TPASSUBEXP 
U.114: WORD <<U.7-U.114>-2> 
00000000V OOOAC Te agACTION 
U.115: LONG <<GET_CONT_LINE-U.115>-4> 
0000* 000B0 ; TPASTARGET 
U.116: . WORD <<FAC15=<43,116>-2> 
002C O00B2 ; TPASTYPE 
U.117: WORD 44 
O5SF6 00084 A Tecat vrs 
U.118: WORD 1526 
Ht +4 FAC18: .BLKB 0 
99F8 O00B6 ; TPASTYPE 
U.119: .WORD -26120 
0000* 000B8 ; TPASSUBEXP 
00000000V OOOBA ; TPASACTION 
U.121: .LONG <<GET_CONT_LINE-U.121>-4> 
0000* OOOBE ; TPASTARGET 
U.122: .WORD <<FAC18-U.122>-2> 
8FFB8 OOOCO ; TPASTYPE 
U.123: .WORD -28680 
01 O00C2 ; TPASFLAGS2 
U.124: BYTE 1 
0000V O000C3 ; TPASSUBEXP 
U.126: .WORD <<U.125-U.126>-2> 
00000000" OO00CS ; TPASPARAM 
U.127: .ADDRESS P.AAC 
00000000V O00C9 ; TPASACTION 
U.128: .LONG <<STORE_NUMBER-U.128>-4> 
OOOCD FAC20: .BLKB 0 
99F8 OOOCD ; TPASTYPE 
U.129: .WORD -26120 
0000* OOOCF ; TPASSUBEXP 
U.130: .WORD <<U.7-U.130>-2> 
00000000V 00001 ; TPASACTION 
U.131: .LONG <<GET_CONT_LINE-U.131>-4> 
0000* 00005 Abt TARGET 
U.132: .WORD <<FAC20-U.132>-2> 
002F O00D7 ; TPASTYPE 
U.133: WORD 47 
95F6 00009 ; TPASTYPE 
U.134: WORD -27146 
00000000v 00008 pTEQBACT ION 
U.135: LONG <<FACILITY_DEFN-U.135>-4> 
0000* OOODF ; TPASTARGET 
U.136: .WORD <<U.67-U.136>-2> 
10F8 OO0E1 A THAg tyre 
U.13 WORD 7672 
ORD 


0000* OO0ES ; jTPASSUBEX? | 


<<U.106-U.138>-2> 


0-742 p 
MEMASTERSCMSGF IL SRCIPARSE .B3204°° 


< 
oO 
> 


PARS 
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0000* 


7109 
00000000* 
00000001 

FFFF 

710A 
00000000* 
006000002 

FFFF 

1108 

0000* 

150¢ 

0000+ 


0030 

043A 

97F1 

01 
00000000' 
00000000Vv 

FFFF 


0030 

043A 

97F1 

01 
00000000" 
0000000v 


18 -Sep- 


14-Sep-1 
000€5 Teast TARGET e 
000€7 ALY LovAL 
000€7 tPA TYPE ep 
000E9 ; TPASADDR 
6.144: LONG 
000ED ATPASMASK 
000F1 ATPASTARGET 
000F3 FiPastveev 
000F5 ZTPASADDR 
000F9 ATPASHASK 
000FD ATPASTARGET 
OOOFF ATPASTYPE 
00101 ; TPASTARGET 
U.159: WORD 
00103 ATPASTYPE 
00105 ETPASTARGET 
00107 sFAC PREF IX 
6.158: .BLKB 
00107 ; TPASTYPE 
6.167:  .WORD 
00109 ; TPASTYPE 
6.168:  .WORD 
00108 ATPASTYPE 
0010D ; TPASFLAGS2 
U.170: .BYTE 
0010€ ; TPASPARAR 
00112 ATPASACTION 
00116 ,TPASTARGET 
00118 ;FAC_MACRO 
U.16%: .BLKB 
00118 ; TPASTYPE 
6.174: WORD 
0011A ATPASTYPE 
0011¢ TRAST YPE i 
0011E ; TPASFLAGS 
U.177: BYTE 
0011F inthe 
00123 ; TPASACTION 


1986 93:28:23 DESRSUNSMASTERSCHSGFIL-SRCJPARSE 03251" 


<<FAC20-U.139>-2> 

0 

28937 
<<FACILITY_FLAGS=-U.144>-4> 
1 

-1 

28938 
<<FACILITY_FLAGS-U.151>=4> 
2 

-1 

4363 

<<U.158-U.159>=2> 

5388 

<<U.164-U.165>-2> 

0 

61 

1082 

-26639 


“a P.AAD 


<<STORE_STRING-U.172>-4> 
e1 

0 

61 

1082 

-26639 


ADDRESS P.AAE 


| 
"9 | 
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12-88-1382 96: 3:34 DISKSVMSMASTER: CMSGF IL. SRCIPARSE. B32, 79 * | 
U.179: LONG <<STORE_STRING-U.179>=4> : 
FFFF 00127 Mey Hate 2 | 
U.180: .WORD <1 : 
00129 A iDENT! a | 
99F8 00129 ; TPASTYPE | 
U.181: .WORD -26120 : 
0000* 0012B ; TPASSUBEXP 
U.182: .WORD <<U.7-U.182>-2> : 
00000000V 60120 ; TPASACTION 
_ U.183: .LONG <<GET_CONT_LINE-U.183>-4> : 
0000* 60°31 ; TPASTARGET 
U.184: .WORD <<U.48-U.184>-2> $ 
91F1 00133 ; TPASTYPE 
U.185: .WORD -28175 : 
00000000V 00135 ; TPASACTION 
U.186: .LONG <<BUILD_VERSION-U. 186>-4> : 
0000* 00139 ; TPASTARGET 
U.188: .WO <<U. 187-U. 188>-2> 3 
9022 00138 ; TPASTYPE 
U.189: WORD -28638 é 
00000000V 0013D ; TPASACTION 
U.190: .LONG <<F IND_ENDVERS-U.190>-4> 3 
0000* 00141 ; TPASTARGET 
U.191: .wWOo <<U.187-U.191>-2> 3 
9027 00143 ; TPASTYPE 
U.192: .WORD -28633 : 
00000000V 00145 ATEASACTION 
U.193: .LONG <<FIND_ENDVERS-U.193>-4> 3 
0000* 00149 ; TPASTARGET 
U.194: .WO <<U. 187-U.194>-2> 3 
942F 00148 ; TPASTYPE 
U.195: .WORD <-27601 3 
00000000V 0014D ; TPASACTION 
U.196: .LONG <<FIND_ENDVERS-U.196>-4> : 
0000* 00151 ; TPASTARGET 
U.197: .WO <<U.187-U.197>-2> : 
00153 fpeute 
U.187: .BLKB 0 
99F8 00153 ; TPASTYPE 
U.198: .WORD -26120 3 
0000* 00155 ; TPASSUBEXP 
U.199: WORD <<U.7-U.199>-2> ; 
00000000V 00157 j TOARACTION | 
U.200: .LONG <<GET_CONT_LINE-U.200>-4> 3 
0000* 0015B ; TPASTARGET 
* Tt <<U.187-U.201>-2> 3 
15F6 0O015D ; TPASTYPE 
U.202: .WORD 5622 3 
0000* 0015F ; TPASTARGET 
U.203: .WO <<U.67-U.203>-2> F 
00161 gogyenity 
U. 6: ~BLKB 0 } 
99F8 00161 ; TPASTYPE 
U.204: .W -26120 3 
0000* 00163 ; TEASSUBEXP 
U.205: <<U.7-U.205>-2> 3 
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00000000v 
0000+ 
OFFS 
01 
0000* 
00000000" 
00000000Vv 
0000+ 


99F8 
0000* 
00000000Vv 
0000* 

OFFS 

01 
0000Vv 
00000000" 
00000000v 
0000+ 


99F8 
0000+ 
00000000Vv 
0000+ 

87F6 

01 

00000001 
00000000* 

87F6 


16-Sep-1984 02:05:14 X-11 Bliss-32 V4.0-742 3 
12: ety 7 95:03:38 Be aKSVMGH TER: CMSGFIL.SRCIPARSE. B32. 79 ait 
00165 ; TPASACTION 
U.206: .LONG <<GET_CONT_LINE-U.206>-4> : 
00169 ; TPASTARGET 
U.207: .WORD <<U.36-U.207>-2> : 
00168 ; TPASTYPE 
U.208: .WORD  -24584 : | 
0016D ; TPASFLAGS | 
U.209: .BYTE 1 é } 
0016E ; TPASSUBEXP | 
U.211: WORD  <<U.210-U.211>-2> : | 
00170 ; TPASPARAM 
.212: ADDRESS P.AAF P | 
00174 ; TPASACTION 
U.213: .LONG <<STORE_NUMBER-U.213>-4> ; 
00178 ; TPASTARGET 
U.214: .WORD  <<U.67-U.214>-2> : 
OO17A ;BASE 
U.54: -BLKB 0 
0017A ; TPASTYPE 
0.215: .WORD  +-26120 ; 
0017C ; TPASSUBEXP 
U.216: .WORD <<U.7-U.216>-2> 3 
0017E ;TPASACTION 
U.217: .LONG <<GET_CONT_LINE-U.217>-4> ; 
00182 ; TPASTARGET 
U.218: WORD <<U.54-U.218>-2> : 
00184 ; TPASTYPE 
U.219: .WORD  -24584 : 
00186 ; TPASFLAGS2 
U.220: .BYTE 1 3 
00187 ; TPASSUBEXP 
U.221: .WORD <<U.125-U.221>-2> § 
00189 ; TPASPARAM | 
U.222: .ADDRESS P.AAG : 
00180 ; TBASACTION 
U.223: .LONG <<STORE_NUMBER-U.223>-4> ; 
00191 ; TPASTARGET 
U.224: . WORD <<U.67-U.224>-2> 3 
00193 ;LITERAL_STMT 
U.60: BLK 0 
00193 ; TPASTYPE 
U.225: .WORD -26120 ; 
00195 ; TPASSUBEXP 
U.226: .WORD <<U.7-U.226>-2> ; | 
00197 ; TPASACTION 
U.227: .LONG <<GET_CONT_LINE-U.227>-4> : 
00198 s TRASTARGET 
U.228: .WORD <<U.60-U.228>-2> 3 
0019D ; TPASTYPE 
U.229: .WORD -30730 : 
0019F ; TRASFLAGS 
001A0 ; TPASPARAM 
U.231: .LONG 1 3 
001A4 AH aa 
U.23 -LONG <<SET_NUMBER-U,232>-4> 3 
001A8 ; TPASTYPE 
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01 
00000000' 
00000000v 


99F8 
0000+ 
00000000v 
0000+ 
45F1 
00000000* 
003d 
003A 
15F6 
0000+ 
8FF8 
01 
0000Vv 
00000000' 
00000000v 


85F6 
00000000v 


102C 
0000+ 
15F6 
0000+ 


oe ae 


-——----—- 


16- 
14- 


nw 


c 
4 
mo xnmvurvUN UN 83200 
WP WP 


.WORD 
OO1AA 


001AB 
OO1AF 
00183 
00183 ; 


ce- ce. 
te ° —te 


ACTION 


zc- 


L 
TRASTYPE 
00185 ; TPASSUBEXP 
00187 ; 7PASACTION 
0.239: LONG 
001BB ; TPASTARGET 
0.240: .WORD 
001BD ; 7PASTYP 
001BF ;7 
001¢3 
001¢5 
001¢7 
001¢9 
001¢B 
001¢D 
001CE 
00100 
00104 
00108 
00108 
001DA 
001D€ 
001DE 
0010 
OO1E2 ; TPASTYPE 
2257: WORD 
OO1E4 ; TPASTARGET 
0.258: WORD 


001E6 ; LANGUAGE 
0.42: .BLKB 


oo 


mee. Cee Cee Cee Cee © lee Cee Cee Cee Cee Cee Ce 
—e —te Ge —te —te —de —de de te ade ate mde °. 
> oe eee Wee 
oO o >» 
“4 
ea 
So 
=z 


ce 
ze 
www OM VNM DIMM VMN VM VN UMN UN UMN UM UN UN UD 
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-30730 


sADDRESS P.AAH 


<<STORE _NUMBER=U.236>-4> 
0 

-26120 

<<U.7*U.238>-2> 
<<GET_CONT_LINE-U.239>-4> 
<<NEXT_LITERAL=“U.240>=2> 
17905 
<<LITERAL_NAME=U.242>-4> 
61 

58 

5622 

<<U.246-U.247>=2> 

-28680 

1 

<<U.125-U.250>-2> 


AM 
sADDRESS P.AAI 


<<STORE_NUMBER-U.252>-4> 
0 

-31242 

<<DEF INE_LITERAL-U.254>=4> 
0 

4140 
<<NEXT_LITERAL“U.256>-2> 
5622 

<<U.67-U.258>-2> 

0 


i 
— | 


Bese Se Se Ge Se Se Ge Se Se Se Se Se Ge Se Se Ge Se Se Se Se oe 
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10 
1§- $ep-1984 02:05:14 VAX-11 Bliss- 
12-88-1382 95:0 46:23 DISKSVMSMAST 
99F8 OO1E6 ; NA: Hae 
WORD +-26120 
0000* 001E8 +; SUBE XP 
<<U.7-U.260>-2> 
00000000V OO1EA ; TBASACTION 
61: LONG <<GET_CONT_LINE-U.261>-4> 
0000* OO1EE : TPASTARGET 
eWORD <<U.42-U.262>-2> 
9FFB OO1FO ;TPA TyPé 
0.26 «WORD -24584 
01 O01F2 UF ASELAGS> 
0.264: .BY 1 
0000* 001F3 ;TPASSUBEXP 
0.266: <<U.265-U.266>-2> 
00000000" OO1FS ; TPASPA 
U.267: ADDRESS P.AAJ 
00000000v 001F9 ;TPASACTION 
U.268: <<STORE_NUMBER-U.268>-4> 
0000* 001FD ; TPASTARGET 
U.269: «WORD <<U.67-U.269>-2> 
OO1FF ATUTLE 
U.73: -BLKB 0 
99FB OO1FF ; TPASTYPE 
U.270: .WORD -26120 
0000* 00201 ; TPASSUBEXP 
U.271: .WORD <<U.7-U.271>-2> 
00000000vV 00203 ; TPASACTION 
U.272: .LONG <<GET_CONT_LINE-U.272>-4> 
0000* 00207 ; TPASTARGET 
U.273: .WORD <<U.73-U.273>-2> 
85F1 00209 ; TPASTYPE 
U.274: WORD -31247 
00000000v 00208 ; TPASACTION 
U.275: .LONG <<SET_MODULE=-U.275>-4> 
OO2OF TITLE2: .BLKB 0 
99F8 OO2OF ; TPASTYPE 
U.276: .WORD -26120 
0000* 00211 ; TPASSUBEXP 
U.277: . WORD <<U.7-U.277>-2> 
00000000v 00213 ;TPASACTION 
U.278: .LONG <<GET_CONT_LINE-U.278>-4> 
0000* 00217 ; TPASTARGET 
U.279: . WORD <<TITLE2-U.279>-2> 
JIED 00219 ; TPASTYPE 
U.280: .WORD -28179 
00000000V 0021B ; TPASACTION 
U.281: .LONG <<SET_TITLE-U.281>-4> 
0000* 0021F ; TPASTARGET 
U.282: WORD <<U.67-U.282>-2> 
15F6 00221 ; TPASTYPE 
U.283: .WORD 5622 
0000* 00223 ; TPASTARGET 
U.284: .WORD <<U.67-U.284>-2> 
00225 ga INSTION 
U.23: BLK 0 
99F8 00225 gToegt ye 
U.285: -26120 


°§ 


PAR 
v04 


— 
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0000+ 
00000000v 
0000+ 
002F 
903¢ 
00000000* 
0000+ 
9422 
00000000v 
0000+ 
1DF8 
0000* 
0000+ 


99F8 
0000* 
00000000v 
0000* 
002F 
95F6 
00000000v 
0000+ 
10F8 
0000+ 
0000+ 


9BF8 
01 
0000* 


D 10 
16-Sep-1984 02:05:14 VAX-11 Bliss-32 V4.0-742 
18-808-1 382 96:03 23 Disk K$V neh ASTER: CMSGFIL. SRCIJPARSE .832;1 
— Nd pag <<U.7°U.286>-2> 
00229 :tBABACTION 
U.287: .LO <<GET_CONT_LINE=U.287>-4> 
0022D p TOASTARGE T 
U.288: .WO <<U.23-U. 288>-2> 
0022F ; TPASTYPE 
U.289: .WORD 47 
00231 ;TPASTYPE 
U.290: .WORD -28612 
00233 ; TPASACTION 
U.291: .LONG <<FIND_BRACKET-U.291>-4> 
00237 pTeggtanee! 
U.293: .WORD  <<U.292-U.293>-2> 
00239 ; TPASTYPE 
ue 294: WORD -27614 
00238 ; TPASACTION 
U. 295: ONG <<FIND_EOS-U.295>-4> 
OO23F ; TPASTARGET 
U.296: ORD <<U.292-U.296>-2> 
00241 ; TPASTYPE 
U. 297: ORD 7672 
00243 ; TPASSUBEXP 
U. 299: ORD <<U.298-U.299>-2> 
00245 ; TRASTARGET 
U.300: .WORD <<U.23-U.300>-2> 
00247 oct 
U.292: .BLKB 0 
00247 ; TPASTYPE 
U.301: .WORD -26120 
00249 ; TPASSUBEXP 
U.302: .WORD <<U.7-U.302>-2> 
00248 ; TPASACTION 
U.303: .LONG <<GET_CONT_LINE-U.303>-4> 
OO24F ; TPASTARGET 
U.304: . WORD <<U.292-U.304>-2> 
00251 ; TPASTYPE 
U.305: .WORD 47 
00253 ; TPASTYPE 
U.306: .WORD -27146 
00255 ; TPASACTION 
U.307: .LONG <<MESSAGE_DEFN-U.307>-4> 
00259 ; TPASTARGET 
U. .WOR <<U.67-U. 308>-2> 
00258 : TPASTYPE 
U.309: .WORD 7672 
00250 ; TPASSUBEXP 
U.310: .WOR <<U.298-U. 310>-2> 
0025F ; TPASTARGET 
U.311: ORD <<U.292-U.311>-2> 
00261 ;DEF dual” 
U.298: .BLKB 0 
00261 ; TPASTYPE 
U.312: 240 -25608 
00263 ;TPA FLAGS 
U.31 .BY 
00264 : TPASSUBE XP 


Page (3 
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00000000' 

00000000v 
FFFF 
1100 
0000+ 
110€ 
0000* 
110F 
0000* 
1110 
0000+ 
1511 
0000+ 


0030 
043A 
OFFS 
01 
0000v 
00000000' 
00000000v 
FFFF 


0030 

043A 

97F1 

01 
00000000" 


sic 


oozsa © ; 
0026€ ;7 
00270 ;f 
00272 ; 
00274 ;1 
00276 ;7 
00278 ;f 
0027A ;1 
o027c ;7 
0027E ;T 
00280 ;T 
00282 ;T 
00284 ;F 
00284 ;T 
00286 ;T 
00288 ;T 
0028A ;T 
00288 ;1 
00280 ;7 
00291 ;1 
00295 ;T 
00297 ;i 
00297 ;T 
00299 ;T 
00298 ;T 
00290 ;7 
0029€ ;T 


03:18 VAX-11 Bliss-32 V4.0-742 
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<<U.210°U. 314>-2> 


sADDRESS P.AAK 
TION 


<<STORE_NUMBER=-U.316>-4> 
-1 

4365 
<<U.322-U.323>-2> 
4366 
<<U.328-U.329>-2> 
4367 
<<U.334-U.335>-2> 
4368 
<<U.340-U.341>-2> 
5393 
<<U.346-U.347>-2> 
0 

61 

1082 

-24584 

1 
<<U.125-U.353>-2> 


ARAM 
sADDRESS P.AAL 
TION 


<<STORE_NUMBER-U.355>-4> 
-1 

0 

61 

1082 

-26639 


00000000V 002DB ; TPASACTION 
U.386: .LONG <<STORE_NUMBER-U.386>-4> ; 
FFFF OO2DF ; TPASTARGET 
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14-Sep-1984 95:03:38 DISKSVMSMASTER: CMSGFIL. SRCJPARSE. B32, 79 arse v04 
settee ame bs 38: reer <<STORE_STRING=U. 362>=4 
® “U. >-4> g Py 
FFFF OO2A6 ; TPA TARGET = ; 
. 363: RD -1 : . 
OO2A8 - OF TAl i” . i 
0030 002A8 “ iPASiYPE 3 
043A OO2AA sTBastype j 
U.365: .WORD 1082 : : 
SFFB OO2ZAC ; TPASTYPE $ 
U.366: .WORD -24584 : 3 
01 OO2AE MS hae : 
U.36 BYTE 1 ; ; 
rere ee jTRAgSUBEXE U.125-U. 368>=2 
. ° <«< “U. >-2> : ‘ 
00000000" 00281 ; TPASPARAM | ; 
U.369: .ADDRESS P.AAN ; : 
00000000vV 00285 ; TPASACTION 3 
U.370: .LONG <<STORE_NUMBER-U.370>-4> : : 
FFFF 00289 ;TBASiARGe | ; 
U.371: ORD -1 3 : 
002BB ;LANG 3 
U.340: .BLKB 0 é 
0030 002BB ; TPASTYPE 3 
0.372: .WORD 61 : | ; 
043A 002BD ; TPASTYPE 3 
U.373: .WORD 1082 3 : 
OFFS OO2BF ; TPASTYPE : 
U.374: WORD =24584 : é 
01 002C1 ; TPASFLAGS2 : 
U.375: .BYTE 1 : 3 
0000* 002C2 ; TPASSUBEXP $ 
U.376: .WORD <<U.265-U.376>-2> 3 : 
00000000° 002C4 ; TPASPARAM 3 
U.377: ADDRESS P.AAO : 3 
00000000v 002C8 ; TPASACTION : 
U.378: .L <<STORE_NUMBER-U.378>-4> : 3 
FFFF OO2CC ; TPASTARGET P 
U.379: . WORD -1 ; $ 
002CcE A USERVAL 3 
U.346: .BLKB 0 3 
003D O2CE ; TPASTYPE | ; 
U.380: .WORD 61 : 3 
043A 002D0 ; TPASTYPE é 
U.381: .WORD 1082 3 : 
SFF8 O02D2 ; TPASTYPE : 
U.382: g¥ORD 24584 : 3 
01 00204 ; TPASFLAGS 4 
U.383: .BYTE 1 : 3 
0000v 00205 ; TPASSUBEXP 3 
U.384: WORD <<U.125-U.384>-2> 3 3 
00000000' 00207 pICASPARAR 3 
U.385: ADDRESS P.AAP 3 3 


wooo Or ——— ——— . led 
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9312 

01 

00000000 
00000000* 

FFFF 

9313 

01 

00000002 
00000000* 

FFFF 

9714 

01 

00000001 
00000000* 

FFFF 


9315 

0% 

00000004 
00000000* 

FFFF 

9316 

01 

00000004 
00000000* 

FFFF 

9317 


002E1 
002E1 
002E3 
002E4 
002€8 
OO02EC 
OO2EE 
002F0 
002F1 
002F5 
002-9 


OO2FB ; 


OO2FD ; 


OO2FE ;7 


00302 
00306 


v. WORD 
00308 ; PARSE. SEVERITY 
-BLKB 0 


00308 
0030A 
00308 
0030F 
00313 
00315 
00317 ; 
00318 
0031C 
00320 
00322 


U. 387: . WORD 
E LANG 


Cee Cee Cee Cee Cee 
te —t. 
> 
» 


—te — 
“ WwuUWwuUWwUWwuUWw oT 


-LON 

S TPASACTION 
U.402: .LON 

T TPASTARGET 
U.403: WOR 


ON 
; TPASACTION 

LONG 
: TPASTARGET 


sTPASTYPE 
CTBASFLAGS2. 


YT 
; TPASPARAM 

LONG 
: TPASACTION 


; TPASTARGET 
S TPASTYPE 


U Bagi uAaes 
-BYTE 
; TPASPARAM 
LONG 
;TPA ACTION 
. LONG 
;TPA TARGET 


i. “Se 
artest tre 
U.432: .WO 


<<SET_NUMBER=U. 394>=4> 
-1 

-27885 

1 

2 
<<SET_NUMBER-U.402>-4> 
-1 

-26860 

1 

1 
<<SET_NUMBER-U.410>-4> 


-27883 


<<SET_NUMBER-U.419>-4> 
-1 

-27882 

1 

4 
<<SET_NUMBER=U.427>=4> 
-1 

-27881 


PARS 
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01 
00000003 
00000000* 

FFFF 
9318 

01 
00000001 
00000000* 

FFFF 
9319 

01 
00000002 
00000000* 

FFFF 
971A 

01 
00000000 
00000000* 

FFFF 


0000+ 
0000+ 
0000+ 
0000+ 
0000+ 
0000+ 


00324 ; 
00325 
00329 
00320 
0032F 
00331 
00332 
00336 
0033A 
0033¢ 
0033E 
0035F 
00343 
00347 
00349 
00348 
0034C 
00350 
00354 


00000 
00000 ; 
00000 ; 
00002 ; 
00004 
00006 
00008 
QO00A 


H 10 


1erge8- 138s 93:28) 


Teagasc 
U.43 
’ TPASPARAR 


.PSECT 
PARSE REVS: 
TPASKEYD 


Bliss-32 
SM 


3 
<<SET_NUMBER-U.435>-4> 
-1 

-27880 

1 

1 
<<SET_NUMBER=U.443>-4> 
-1 

-27879 

1 

2 
<<SET_NUMBER-U.451>-4> 
-1 

-26854 

1 

0 
<<SET_NUMBER=U.459>-4> 
-1 

-LIBSKEYOS,NOWRT, SHR, 


0 

<U.25-U.1> 
<U.32-U.1> 
<U.38-U.1> 
<U.44-U.1> 
<U.50-U.1> 
<U.56-U.1> 


V4.0-742 
ASTER: CMSGF IL.SRCIJPARSE. B32; 


PIC,1 
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V04- racer 8Re F888 3s Teta teR heer eacapanse 03204" 3 


-PSECT SPLITS,.NOWRT ,NOEXE ,2 


- LONG 
P.AAA: .ADDRESS SYMBOL _NAME 
- LONG 31 


—— +O 
wv 
> 
> 
@ 
w— Ww 
a 


- LONG 
-ADDRESS FACILITY NAME 
-LONG 1, 9 


-LONG 3 
P.AAC: .ADDRESS dg’ dal eects 
LONG » 204 


aoe not irese WORD <U.62-U.1> 
0000* OO00E ; TPASKEY ‘ | ; 
0000* 00010 NA < ea “ene y.75<u.1 3 
* H ‘ <U.75°U.1> : Py 

ae ene iain WORD <U.140-U.1 
. . id « 140-U.1> ; : 

0000* 00014 roagcey 3 
0000* 00016 ; TPASKEY : 
U.155: .WORD <U.154-U.1> : : 

000G* 00018 ; TPASKEY $ 
0.161: .WORD <U.160-U.1> : : 

0000* OOO1A ; TPASKEY 3 
U.319: WORD <U.318-U.1> : | F 

0000* OO01C ; TPASKEY 3 
U.325: .WORD <U.324-U.1> : 3 

0000* OOO1E ; TPASKEY 3 
U.331: . WORD <U.330-U.1> : 3 

0000* 00020 ; TPASKEY : 
U.337: .WORD <U.336-U.1> ; 3 

0000* 00022 ; TPASKEY | 5 
U.343: .WORD <U.342-U.1> : F 

0000* 00024 ; TPASKEY | ; 
U.389: .WORD <U.388-U.1> : : 

0000* 00026 ; TPASKEY : 
U.397: .WORD <U.396-U.1> : ; 

0000* 00028 ; TPASKEY | 3 
U.405: .WORD <U.404-U.1> : 3 

0000* 0002A ; TPASKEY | : 
U.414: WORD <U.413-U.1> : 3 

0000* 0002C ; TPASKEY 3 
U.422: .WORD <U.421-U.1> : 3 

0000* OO02ZE ; TPASKEY 3 
U.430: .WORD <U.429-U.1> : 3 

0000* 00030 ; TPASKEY 3 
U.438: .WORD <U.437-U.1> : 3 

0000* 00032 ; TPASKEY 3 
U.446:  .WORD <U.445-U.1> : | : 

0000* 00034 ; TPASKEY | 3 
U.454: .WORD <U.453-U.1> : ; 

| P 

Py 

¢ 

: 

| . 

| 


0000001F a0098000 a0 
00000009 i 
000007F F : | 


- LON 
P.AAD: .ADDRESS DEFAULT_PREF IX 
-LONG 1, 9 
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~N 


PAR 
04 


1 ge 3 

V04- 2 -1984 Disk SKSVMSMASTER: CMSGF IL. SRCIJPARSE. B32. 79 (3) | Vv 
40 «LONG 3 : : 
' 44 P.AAE: . ADDRESS MACRO_NAME ; : 
0000000F 48 «LONG 1, 15 : ‘ 
1 LONG 1 é ° 
, 4 P.AAF: - ADDRESS , DEFAULT_SEV : | : 
y P.AAG: .ADDRESS MESSAGE. NUMBER : : 
OOOOOF FF 6 “LON 6 0, 4 : ; 
0' $C P.AAH: . ADDRESS LITERAL_VALUE : : 
0 if ie P.AAL: “ADDRESS, LITERAL VALUE : : 
0000000' 0007C P.AAJ: ADDRESS DEFAULT_LANG : ; 
900 001 00080 .LON 1 : : 
00 9000" 0084 P.AAK: - ADDRESS SEVERITY_VALUE : : 
900000 0088 «LONG 3 : : 
0000000" 0008C P.AAL: ADDRESS FAOCNT_VALUE : : 
0000001F 90000009 00 . LONG Q. 31 : ; 
00000003 0009 . LONG ; : 
00000000" 0009C P.AAM: ADDRESS IDENT_VALUE : : 
0000000F 90000001 0O0A0 «LONG 1, 15 ~ : : 
990 0003 000A8 “LONG 3° : ; 
0000000" OQOOAC P.AAN: . ADDRESS DETAIL_VALUE : ; 
000000F F 99000000 90080 .LONG 0, 255 ~ : : 

00000001 00088 “TON NG 1 : 

90000000" 9008¢ P.AAO: .ADDRESS_LANG_VALUE : 

00000003 000C0 .LONG 3 : 

00000000" 000C4 P.AAP: . ADDRESS USERVAL_VALUE : 

OOOOOOFF 00000000 000C8 «LONG 0, 255 : 

-PSECT $CODE$,NOWRT,2 
0000 00000 NULL2: .WORD Save nothing : 0750 
04 00002 RET F 


; Routine Size: 3 bytes, Routine Base: $CODE$ + OO1A 


— > _s 


OOWONOUSWN OOO 


PUPV IV IV IV SVSTSVSISISISISIS 
poleloleleleloleolelololololoa) 
SNS NSN NNN 


AOOQCOOMMMAINIUIUTIUIUT 
FW OOONOU LS Wr 
— oe oe td Ys 


Wror 


K 10 
THE MESSAGE SOURCE FILE 19=3¢0°19 4 95:03:18 VAX=11 
14-Sep 7:46:23 DISK$V 


Expression evaluation 


OWN 

estack: VECTORCE50), ' Expression stack 

esp; ! Expression stack pointer 
MACRO pop = (LOCAL temp; temp=..esp; esp=.esp+4; .temp)%; 
MACRO push(value) = agg oe fee ie a 3 
MACRO save = (ap_setup; AP tpa$l_number = ,.esp; true)%; 


ROUTINE init stack = (esp = estack(50]; true); 


~-PSECT SOWNS,NOEXE,2 


TACK: .BLKB 200 
P: -BLKB 4 


-PSECT S$CODES,NOWRT,2 
0000 00000 INIT_STACK: 
» WORD 


Save nothing 
0000" CF 0000" CF 9E 00002 MOVAB ESTACK+200, ESP 
50 01 00 00009 MOVL #1, RO 
04 0000C RET 


13 bytes, Routine Base: S$CODE$ + 001D 


; Routine Size: 


1 ROUTINE add2 = (.esp = pop + ..esp; save); 


0000 00000 ADD2: .WORD Save nothing 
50 0000" DF D 0000¢ MOVL ESP, TEMP 
0000° CF 04 C 9000 ADDL2 #4, ESP 
0000' ODF 0¢ C ADDL TEMP, @ESP 
1¢ AC 0000" OF DO d0011 MOVL @ESP. 28(AP) 
50 01 BO 0017 MOVL #1, RO 
4 OOO1A RET 


27 bytes, Routine Base: S$CODE$ + 002A 


; Routine Size: 


1 ROUTINE sub2 = (LOCAL temp; temp = pop; .esp = ..esp - .temp; save); 


4.0-742 
FIL.SRCJPARSE .B32 


PARSE THE MESSAGE SOURCE FILE 


SHIFT2: . 
M 


Liss-32 V4.0-742 
MASTER 


000 SUB2: .WORD Save nothin 
50 0000" _~oF D p ; MOVL ag sP TEMP © 
9000" CF 04 ADDL2 #4, ESP 
000° ODF » = C SUBL TEMP, arse 
1c a6 0000' Bf D 11 MOVL @ESP, 28(AP) 
5 1 p 17 MOVL #1, RO 
4 QOOO1A RET 
; Routine Size: 27 bytes, Routine Base: S$CODE$ + 0045 
; $33 0767 1 ROUTINE mul2 = (.esp = pop * ..esp; save); 
0000 00000 MUL2: WORD Save nothing 
50 0000" OF be hit OVL @ESP, TEMP 
0000' CF 04 CO 0000 ADDL2 #4, ESP 
0000" OF 0 ¢4 Q000C MULL TEMP, Hin 
1c =AC 0000" ODF 00 00011 MOVL @ESP, 28(AP) 
50 01 D0 00017 MOVL #1, RO 
04 OO01A RET 
; Routine Size: 27 bytes, Routine Base: $CODE$S + 0060 
; $3 0768 1 ROUTINE div2 = (LOCAL temp; temp = pop; .esp = ..esp / .temp; save); 
0000 00000 DIV2: .WORD Save nothing 
50 0000' DF 00 Bo00s MOVL SP, TEMP 
0000° CF 04 C0 0000 ADDL a4, 
0000° OF 50 ¢6 0000C DIVL TEMP, @ESP 
1Cc AC 0000" DF 00 beoi7 MOVL @ESP, 28(AP) 
50 01 DO 00017 MOVL #1, RO 
04 OOO1A RET 
; Routine Size: 27 bytes, Routine Base: S$CODE$S + 0078 
3s $35 0769 1 ROUTINE shift2 = (LOCAL temp; temp = pop; .esp = ..esp * .temp; save); 


 CMSGF IL. SRCJPARSE .B32 


age 
79 


Bete Se Be Be Se Se Bete Se Se Be Be Se 


0767 


0768 


0769 


M10 
PARSE THE MESSAGE SOURCE FILE 16-Sep-1984 05:14 VAX- 
127808- 1382 95 46 4 DISK 
60 60 51 7 014 ASHL TEMP, (RO), (RO) 
1¢ AC 60 D O18 MOVL (RO), 28(AP) 
5 1 p 1C MOVL #1, RO 
4 0O01F RET 
; Routine Size: 32 bytes, Routine Base: S$CODE$S + 0096 
536 0770 1 ROUTINE negi = (.esp = - ..esp; save); 
a * | 00000 NEG1 «WORD Save nothing 
50 0000' CF OD Bons MOVL ESP, RO 
60 60 cE 000 MNEGL (ROS, (RO? 
1¢ AC 60 D OOOA MOVL (RO), 28(AP) 
50 01 BO O00E MOVL #1, RO 
4 00011 RET 
; Routine Size: 18 bytes, Routine Base: $CODE$ + 00B6 
537 0771 1 ROUTINE push_constant = (ap_setup; push(.apCtpa$l_number]); true); 
0000 00000 PUSH_CONSTANT: 
-WORD Save nothing 
0000' CF 04 C2 0000 SUBL2 #4, ESP 
0000' OF 1C AC D 000 MOVL 28(AP), @ESP 
50 01 00 it MOVL #1, RO 


; Routine Size: 17 bytes, Routine Base: S$CODE$ + 00C8 


Orr ROUTINE push_symbol = (ap_setup; he esp 

077 4 Look qryare ap ceeest: tokencnt],.esp) 
0774 N BEGIN save; ne URN true; END 

0775 «1 ese RETURN false;); 


0000 00000 PUSH_SYMBOL : 
WOR 


. Save nothing 
0000' CF 04 C2 0000 SUBL2 #4, ESP 
0009" CF pp 000 PUSHL 
10 AC 9F 08 PUSHAB AP) 
0000v CF Q FB 6 5 CALLS #2, LOOKUP_SYMBOL 
OA E 1 BLBC OséaR 
1c AC 0000" OF 016 MOVL @€SP, 28(AP) 


Bliss-32 V4.0-74 


11 2 Pa 39 
SVMSMASTER: CMSGF IL. SRCJPARSE.B32; 1 


® 
Sw 
~~ 


0770 


0771 


0772 
0773 


Be Se Be Se Oe Be Ge Se Se Se Se BH Se Ge SH Be Ge Se Ge BHF Se Se SH FH Se SH Se Se Se Se Se Ge ee Se SHS Se Se Ge Se Se SH Se Se ee Se Se Se ee eee SE Se Se Se ae 


(‘a',arith_shift), 
Pe oy bs ABS a 
((division), 


(tpa$_lambda,tpa$_exit)); 


$state(arith_shift, 
((term) ,tpa$S_exit,shift2)); 


$state(multiplication, 
((term) ,tpa$_exit,mul2)); 


tpa$_exit), ! Only if followed by valid term 
! to allow for qualifier slash (/) 


wvwuvvTvT OU 


wv wv 


= Ww 


$state(division, 
('/")); 


$state(, 
((term) ,tpa$_exit,div2)); 


$state(factor, 

‘=" negate), 
(*(",parens), - | 
((constant) ,tpa$_exit,push_constant), 
(tpa$_symbol, tpa$_exit,push_symbol)): 


} 
N 10 | 
PARS PARSE THE MESSAGE SOURCE FILE 16-Sep-1984 05:14 VAX-11 Bliss-32 V4.0-742 Page 36 
H02-500 12-88-1382 95:03:34 DISKSVMSMASTER: CMSGF IL. SRCJPARSE.B32:1> (4) | 
50 01 »o0 1C MOVL #1, RO 3: 0775 
50 bg nak 1$ CERL RO a | 
be $59 ! RET F | 
; Routine Size: 35 bytes, Routine Base: $CODE$ + 00D9 
o6g 776 
54 P 077 $state(expression, 
544 778 ((term))); 
545 P0779 1 $state(, 
546 P 0780 (*+' addition), 
547 P 0781 ((subtraction) ,tpa$_exit), ! Only if followed by valid expression | 
548 P ree ' to allow for continuation dash (-) 
ro) 4+ (tpa$_lambda,tpa$_exit)); 
51 P 0785 $state(addition, 
26 . § ((expression) ,tpa$_exit,add2)); 
54 P 8 $state(subtraction, 
55 9 ('=")); 
56 BE 0 $state(, 
af 1 ((expression) ,tpa$_exit,sub2)); 
i $state(term, 
4 ((factor))); 
5 $state(, 
6 
7 
8 
9 
0 
4 
| 
| 
| 
| 


vuvuvv 


vw 


Sstate(negate, : 
((factor),tpa$_exit,negl)); 


$state(parens, | 
((expression))); 
$state(, 


. 
o 
. 
o 
* 
° 
. 
o 
o 
2 
- 
a 
. 
o 
. 
e 
- 
o 
o 
e 
. 
eo 
: 
oe 
. 
e 
7 
e 
. 
oe 
. 
e 
7 
. 
. 
oe 
° 
e 
. 
a 
. 
. 
. 
e 
o 
. 
. 
. 
& 
o 
e 
. 
eo 
” 
. 
a 
. 
e 
+ 
eo 
. 
e 
. 
o 
* 
ca 
. 
oe 
e 
. 
o 
. 
e 
. 
e 
. 
a 
. 
o 
+ 
a 
a 
. 
7 
. 
. 
o 
. 
e 
7 
o 
* 
os 
. 
e 
. 
2 
. 
e 
. 
e 
. 
. 
. 
. 
. 
e 
. 
. 
. 
. 


ee a a a a at at ot = = = a ss ot Ss 2 2 ss 2 2s ss ss ss 


Be Be Be Be Se Be Se Se Se Se Be Se Be Be Ge Ge Be Ge Se Ge Se Ge Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Be Se Ge Se Se Se Se eee Se Se Se Se Ge Se Ge 


> DB 
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6-Sep-1984 02:05:14 — VAX=11 BL iss=32 v4.0-742 37 | PARS 
L-Sep-1986 19:46:23 DISKSVMSMASTER=CMSGF IL. SRCIPARSE .B32¢4 * | 


; 591 oa (")',tpaS_exit)); 

3 38 f § 1 

; 59 & 1 Sstate(constant, 

; 5946 © » F ('+" ,constant), 
: 332 if ° ; : (ide cin Ue $_exit)); 

3 ecimal),tpa$_exit 

: 3 ‘ie . 

; 598 P 8 $ 1 Sstate(radix, 

; 599 P 1 rroctal), 

; 600 P 0834 «1 (*x 
; 601 0835 1 4s D* idectmal)); 
: 60 0 $ 1 
: 60 P 0 1 $state(octal 

3; 604 0838 1 (tpa$_ octal,tpa$_exit)); 
; 605 0839 1 | 
; 606 P 0840 1 Setotethox. 

: 607 0841 1 (tpa$_hex,tpa$_exit)); | 
: 608 Base 1 
; 609 P 0845 1 Sotatetéyc teat. 
; 610 0844 1 (tpa$_ decimal, tpa$_exit)); 

: 611 0845 1 

s 6t2 0846 1 ROUTINE null3: NOVALUE =; 


-PSECT _LIBSSTATES,NOWRT, SHR, PIC,1 
00356 ; EXPRESSION 0 


AAR RAR AREA A LAA AAAMADAA AAA. AALAAALAAAAA AAA 


0.125: ~BLK 

ODF8 00356 ZTPASTYPE ia 

0000* 00358 ; TPASSUBEXP 7 | 
0.464: .WORD  <<U.463-U.464>-2> ; | 

102B 0035A ; TRAST YPE an 

0000* 0035C ;TPASTARGET : 
U.467: . WORD <<U.466-U.467>-2> : 

19F8 0035E ZTPASTYPE adi 

0000* 00360 ; TPASSUBEXP : 
U.470: .WORD <<U.469-U.470>-2> $ 

FFFF 00362 ZTPASTARGET 

15F6 00364 tPASt ype aaah 

FFFF 00366 s TPASTARGET , 
0.473: .WORD 1 : 

eee 8! Sage 

vss some ine von 25096 : 

0000* 0036A ; TPASSUBEXP : 
0.475: .WORD <<U.125-U.475>-2> : 

— 4 eae <<ADD2-U.476>-4> 
FFFF 00370 ; TPASTARGET 5 


PARSE THE MESSAGE SOURCE FILE 


—_——— 


0420 
90F8 
0000+ 
00000000* 
FFFF 


OoF8 
0000+ 
1040 
0000+ 
102A 
0000+ 
19F8 
0000* 
FFFF 
15F6 
FFFF 


9DF8 

0000+ 
00000000* 

FFFF 


9DF8 

0000* 
00000000* 

FFFF 


hese Sep-19 :05:1 VAX-11 BLi 
14- ~30 71382 95:08:34 DISKSVMSMA 

00372 ;SUBTRACTION 

U.469: BLKB 
00372 p Teast ye 

U.478: .WORD 1069 
00374 ; TPASTYPE 

U.479: .WORD -25096 
re as U.125-U.480>-2 

. er <<U.125-U.480>-2> 

00378 ; TPASACTION 

U.481: . LONG <<SUB2-U.481>-4> 
0037C ; TPASTARGET 

U.482: .WORD -1 
OO37E ; TERM 

U.463: .BLKB 0 
OO37E ; TPASTYPE 

U.483: .WORD 3576 
00380 ; TPASSUBEXP 

U.485: . WORD <<U.484-U.485>-2> 
00382 ; TPASTYPE 

U.486: .WORD 4160 
00384 ; TPASTARGET 

U.488: .WORD <<U.487-U.488>-2> 
00386 ; TPASTYPE 

U.489: .WORD 4138 
00388 ; TPASTARGET 

U.491: WORD <<U.490-U.491>-2> 
O038A ; TPASTYPE 

U.492: . WORD 6648 
0038C ; TPASSUBEXP 

U.494: .WORD  <<U.493-U.494>-2> 
OO38E ; TPASTARGET 

U.495: .WORD -1 
00390 ; TPASTYPE 

U.496: . WORD 5622 
00392 ; TPASTARGET 

U.497: WORD -1 
00394 ;ARITH_SHIFT 

U.487: .BLKB 0 
00394 ; TPASTYPE 

U.498: .WORD -25096 
00396 ; TPASSUBEXP 

U.499: ORD <<U.463-U.499>-2> 
00398 ; TPASACTION 

U. 500: .LONG <<SHIFT2-U.500>-4> 
0039C ;TPA STARGET 

U. 501: .WORD -1 
OO39E ; MULTIPLICATION 

U.4 0: * 0 
O039E ; TPASTYPE 

U.502: D -25096 
OO3A0 ;TPA ASSUBEXP 

0.50 <<U.463-U.503>-2> 
003A2 ; TPASACTION 

0 : <<MUL2-U.504>-4> 


. . LO 
O03A6 ; TPASTARGET 
U. : WORD 

OO3A8 ;DIVISION 


$-32_ V4.0-742 
TER: CMSGFIL.SRCIPARSE. 832; .; 


38 
(4) 


PAR‘ 
v04- 


dD 11 
PARSE THE MESSAGE SOURCE FILE 16-Sep-1984 02:05:14 VAX-11 Bliss-32 V4.0-742 9 PAR! 
ak ae ts 9 95:03:38 DISKSVMSMASTER: CMSGF IL. SRCIPARSE. B32, 79 ‘a V04- 
U.493: .BLKB 0 
042F 0038 AIPASTYPE oor 
9DFB8 OO3AA ArPASTYPE onan ; 
0000* O003AC j, BA$SUBEXP eit anak Celie q 
. : . . "Ue = > ’ 
00000000* OO3AE ; TPASACTION 
U.509: .LONG <<DIV2-U.509>-4> : 
FFFF 00382 ; TPASTARGET 
U.510:  .W -1 : 
0058 FFAG ce 
102D 003B4 ;TPASTYPE 
U.511: .WORD 4141 : 
0000* 00386 {TBASTARGET heen bei 
. ee <<u. -U. >-2> Hy 
1028 00388 ;TPASTYPE 
U.514: .WORD 4136 : 
0000* 003BA ; TPASTARGET 
U.516: .WORD <<U.515-U.516>-2> : 
99F8 OO03BC ; TPASTYPE 
U.517: .WORD -26120 : 
0000* 003BE ; TPASSUBEXP 
U.519: WORD <<U.518-U.519>-2> : 
00000000* 003CO ;TPASACTION 
U.520: .LO <<PUSH_CONSTANT=-U.520>-4> : 
FFFF O03C4 ; TPASTARGET 
U.521: .WO -" : 
95F1 003C6 ; TPASTYPE 
U.522: .WORD -27151 3 
00000000* 003C8 ;TPASACTION 
U.523: .LONG <<PUSH_SYMBOL-U.523>-4> : 
FFFF OO3CC ; TPASTARGET 
U.524: .W -1 : | 
OO3CE ;NEGATE 
U.512: .BLKB 0 
9DF8 OO3CE ; TPASTYPE 
U.525: .WORD  -25096 3 
0000* 00300 ; TPASSUBEXP 
U3¢0: eWORD <<U.484-U.526>-2> 3 | 
00000000* 00302 ; TPASACTION | 
U. 527: .LONG <<NEG1-U.527>-4> : 
FFFF 00306 ; TpAST ARGET 
U.528: .WO -1 : 
00308 BPARENS 
U.515: .BLKB 0 
ODF8 00308 ; TPASTYPE 
U.529: .WORD 3576 : 
0000* 003DA ; TPASSUBEXP 
U.530: .WORD <<U.125-U.530>-2> ; 
1429 O003DC ; TPASTYPE 
U.531: . 5161 : 
FFFF OO3DE ; TBASTARGET 
S.saat -« -] ; 
0030 ; CONSTANT | 
U.518: .BLKB 0 


PARS PARSE THE MESSAGE SOURCE FILE 

vou=600 
0000+ 
105€ 
0000* 
1DF8 


0000+ 
FFFF 


104F 
0000* 
1058 
0000* 
1444 
0000* 


15F4 
FFFF 


155 
FFFF 


15F3 
FFFF 


0000 
04 


; Routine Size: 3 bytes, Routine Base: S$CODE$ + OOFC 


es 


1028 O03E0 ; he Mate 


003E2 
OO3E4 ; 
ened | 
0O3E = 
QO3EA 
0O3EC 5 
OOSEE 
OOSEE 
003F0 
003F2 
003F4 
0036 
0038 
OO3FA 
OO3FA 
003FC 
OOSFE 
OOSFE 
00400 
00402 
00402 
00404 


w$p-1986 13:4 


ORD 
; TPASTARGET 
0.534: .WORD 
aa PE 

53 «WORD 


> 
art 
o =és 
> 
=] 
a 
m 
~ 


4 Wane 
Pwo fr rwPrw 
ee ae ae 

_—: ss 

& 

Po) 

7) me 

m 

_" 


a» 

= 
. mo 
. 


ye 
*> 
or 
o mgs 
QP 
P ] 
a 
m 
~ 


-iBastvPé 


»PSECT 


0000 NULL3: .WORD 
RET 


0002 


5:14 VAX-11 Bliss-32 V4.0-742 
6:23 DI SKSVMSMASTER, CMSGF IL. SRCIJPARSE. B32. 79° 


4139 
<<U.518-U.534>=2> 
4190 
<<U.536-U.537>-2> 
7672 
<<U.5359-U.540>-2> 
-1 

0 

4175 
<<U.543-U.544>=2> 
4184 
<<U.546-U.547>=2> 
5188 
<<U.539-U.549>=2> 
0 

5620 

-1 


S$CODES,,NOWRT 2 
Save nothing 


40 
(4) 


; 0846 


‘ 
§ 
§ 
§ 
‘ 
) 
| 
| 
‘ 
| 
‘ 
‘ 
< 
‘ 
| 
‘ 
‘ 
‘ 
‘ 
‘ 
| 
‘ 
‘ 
) 
| 
§ 
‘ 
‘ 
§ 
| 
| 
§ 
‘ 
§ 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


F 11 
THE MESSAGE SOURCE FILE 19~3¢0°198% 95:03:33 VAX=-11 Bliss-32 V4 
14-Sep-1984 6:2 DISKSVMSMASTER: CMS 


: 
3" 


—T 
- AF 

= 
mr 


; $19 of } GLOBAL ROUTINE parse_file = 

: 616 rk — 

; $1 29 : i Thi ti f th i he alread 

; : Ss routine performs the parsing on the already open 
: 619 5 : input file of messese definitions. Fag 

: 621 854 1 | Inputs: 

; 6 § Ree 1! 

3; © 0 28 1} None 

> 624 0857 1! 

: ° 5 baee : } Outputs: 

: 6 5 0860 1! Various control blocks describing the definitions. 

; ? : bee. : (see SMSGDEF) 

; 6 bBe8 & 

; 631 0864 BEGIN 

3 O36 0865 

3; 65 0866 LOCAL 

: ? : +984 status; ! Status code 

; 636 0869 If num files EQL 0 ! First file processed 

: 638 0871 

: oz, Bag facility_initQ; ! Initialize facility cells 

: oF) gare input_linenum = ¥ ! Zero input Line number 

; 64 0876 ; title text (0) = ength of default title 

: eee + a ; CHSMOVE(.title_ text ‘C03, uPLIte: essage definitions’), .title_text (1]); 
: 646 0879 END; 

: 647 0880 

; os srt num_files = .num_files + 1; ' Increment total files parsed 
; $20 O88 new_page(); ! Page eject on each new file 
; 63¢ 0885 WHILE get_record() 

: 654 0887 BEGIN 

3 635 0888 tparse_block ftpast. stringcnt) = .input_record (0); 

: 636 434 tparse_block Ctpa$l_stringptr] = .input_record (1); 

: 658 6 91 status = Sestpersettperse block parse. states,parse_keys); 
: $28 B39 If wot -Statu If syntax error detected, 

: 661 0894 4 "BEGIN 

: 666 0895 4 MAP status: BBLO ! Get at fields ; 
: $3? 194 : iy -Status ae, inhib_msg] ! If not yet signaled 
: 665 0898 4 syntax_error(tparse_block,emsg(syntax),tparse_block Ctpa$l_tokencnt]); 
; 666 899 4 END 

; 66 900 ELSE 

; oo8 44 iY wot - Line output ! If Line not yet output, 

: 670 0908 echo_record(); ! then echo the input record 


1 
PARS PARSE THE MESSAGE SOURCE FILE 18. Sep-1984 02:05:14  VAK=11 Bliss-32 v4.0-742 Pa 
v04= 14- ~3e 71382 95:03 :3 DISK xSVMCH TER: CMSGF IL. SRCJPARSE.B32;1 
> 671 904 END; 
: of oe SIF .clt_tlegs Covel 0 Last buffered Line of MDL fil 
; ef ags ual_md utput last buffere neo L e 
; ore 2 THEN mal o~ m recara’t anh (0, pete es , true ); 
: 67 90 IF .cli_flags Cqual_sdl) ! Output Last buffered Line of SDL file 
; a7 0910 5 THEN ° - 
s or 031, sdl_put_record ( UPLIT (0, UPLIT(O) ), true ); 
; 680 318 RETURN true: 
> 681 0914 
; 682 0915 1 END; 
.PSECT $PLITS$,NOWRT,NOEXE,2 
74 69 6€ 69 66 65 64 20 65 67 61 73 73 65 4D Q00D0 P.AAQ: .ASCII \Message definitions\<0> 
00 73 6E 6F 69 OO0DF 
00000000 D00E4 P.AAS: .LONG 0 
90000000 OOE8 P.AAR: .LONG 0 
0000000' O00EC -ADDRESS P.AAS 
00000000 OO00FO P.AAU: <LONG 0 
00000000 O00F4 P.AAT: .LONG 0 
00000000' 000F8 “ADDRESS P.AAU 
.PSECT $CODE$,NOWRT,2 
007¢ 00000 .ENTRY PARSE_FILE, Save R2,R3.R4,R5,R6 
5 0000' CF 9E 90002 MOVAB TPARSE BLOCK, R6 
0000" CF 05 0000 TSTL PICES 
18 12 0000B BNEG rt 
0000v CF 00 FB 9000p CALLS #0, FACILITY_INIT 
0000' CF D4 0001 CLRL INPUT_LINENUM 
0000' CF 13 B8 Bante OVL #19, TITLE_TEXT 
0000" oF 0000" CF 0000' CF 28 0018 MOVC3 TITLE_TEXT> P.AAQ, @TITLE_TEXT+4 
0000" CF D6 00025 1$: CL. NUM_FILES 
00006 CF 00 FB 00029 CALLS #0, NEW_PAGE 
0000v CF 00 FB 000 5 2$: CALLS #0, GET-RECORD 
3F 50 9 000 BLBC =. «RO, 48 
08 A6 0000' CF ?D 000 MOVG §INPUT_RECORD, TPARSE_BLOCK+8 
9000" CF of 00 c PUSHAB PARSE-KEYS 
000' CF 9F 0004 PUSHAB PARSE ~STATES 
36 DD B0044 PUSHL Re 
000000006 99 03 FB 00046 CALLS #3, LIBSTPARSE 
5 20 DO 00040 MOVL RO STATUS 
1g 52 £8 0005 BLBS STATUS, 3$ 
D7 5 iC 0 6 5 S #28, STATUS, 2% 
10 Ad OF 5 PUSHAB rod BLOCK+16 
009710FC 8F DD 0005A PUSHL #9900284 
56 DD 0006 PUSHL 
0000G CF 0 FB 6 CALLS 3° SYNTAX_ERROR 
cS 6 BRB 
CO 020c C6 E8 00069 3s: BLBS fhe OUTPUT, 2% 
00006 CF 00 FB 0006E CALLS ECHO_RECORD 


e 42. 
. (5) 


me at ss a a as as a ss ss ss ss as ts ss 9 ss a ss — — ss 


| 
H 11 
PARS PARSE THE MESSAGE SOURCE FILE 16- Sep-1984 03: :05:14 VAK=11 Bliss-32 v4.0-742 Page 43 
1022500 14-Sep-1984 12:46:23  DISKSVMSMASTER:CMSGFIL.SRCJPARSE.B32;1 (5) 
11 0007 BRB 2 : 0885 
08 00006 CF 03 E1 R 4$ BBC 3s, CLI_FLAGS, 5$ : 0906 
1 bp 78 PUSHL #1 + 090 
0000" CF 9F 0007D PUSHAB P.AAR : 
90006 CF 2 Fe 1 CALLS ue, MDL_PUT_RECORD : 
0B G CF E 5$: BBC #4, CLIZF FLAGS. 6$ ; 9909 
1 bo C PUSHL “i, + 0911 
0000' CF 9F PUSHAB P,A ; 
00006 cf é FB CALLS He, A SoL _PUT_RECORD : 
0 } 97 6$ MOVL #1, RO ~ : oata 
4 0009A RET + 091 
; Routine Size: 155 bytes, Routine Base: SCODES + OOFF 


11 
PARSE THE MESSAGE SOURCE FILE 16- -Sep-1984 7:05:14 VAX-11 Bliss-32 V4.0-742 44 

14-Sep-1984 95: 46:23 DISKSVMSMASTER: CMSGFIL.SRCJPARSE. B32. (6) | V04: 
: 68 91g} ROUTINE get_record = | : 1 
: 68 at i : 1 
Bos Sr Bk Eats totes oes toe mat eek Koere z 
3 ' s routine gets the next input : 
: p34 03 1 } the record 1tonecessary. ; wins onan Mea: Beene : 1 
: 691 0398 1 | Inputs: | : if 
; ' 3 
: o37 88 2 : } input_rab = Input RAB block : } 
BB | oven | EE 
; 244 89 3 : ; input_record = Descriptor of input record | : i 
; 344 8 1 : r0 = status (already signaled if error) ; i} 
: 701 0938 Be | 1 
Bo do bee : 
> 704 0936 2 OWN | : 
: oe Beet buffer: VECTOR (256,BYTE); ! Upcased input record : v 
: 707 0939 2 LOCAL : 1 
4 8 Blea i 
3 at Bee § status = $GET (RAB = input_rab); ' Get next record ; i 
: re Rpee ff wor .Status ! If error detected, : i 
: 714 0946 BEGIN 3 1 
: 2 e944 3 f,status NEQ rms$_eof ! If unexpected GET error, : + 
; ate Bose rms_error(emsg(readerr),input_fab, input_rab); | ; ‘' 
3 ak bees Segue -Status; ! return with status | 3 } 
Se Ck a © ay ee 
: nput_linenum = .input_linenum + ' Increment input Line : 
: is? beee Line_Output = false: ! Mark Line not yet output warren | : } 
: 725 0957 IF .input_rab Crab$w_rsz) GEQ 1 If at least 1 character, | F 1 
: 766 boe5 - .T. input_rab” Crab$l_rbf])<0,8> EGL form_feed ! and if char = FF, | : ‘. 
; 58 0960 BEGIN | Ss 
> 729 0961 new_page() ! Cause page eject 27 
s 730 096 input rab trabSw_ rsz) = input. rab Crab$w_rsz] - 1; 37 
: 4H 3203 input. “rab Crab$l“rbf) = .input-rab Crab$l"rbf] + 1; | : , 
; 73 965 | | 
: oye 308 pace i FROM 0 TO .input_rab Crab$w_rsz)-1 | : } 
; fh 3 BEGIN | ; 
3 3 
s 38 970 old = ,input_ra canst fbf): VECTORC,BYTE); . | 
: 739 971 butfer [.i) = .0 ati: 3} 
; 740 0972 SELECTONEU ela. t° i .-% 


11 
THE MESSAGE SOURCE FILE 1b-Se 1984 02:05:14 PAR 
14 300-138 95:08:38 


< 
oO 
> 


: 7a 32 Pras to *2"): butter C.4] = .buffer C242 + ( ) 

; a‘ ‘z']: buffer C.i] = .buffer C. + (‘At='a'); 

4 74 975 | 
: 744 144 eee | 
s 765 977 & BEGIN 
; 746 978 «4 LOCAL g Len; 
: 747 979 4 p = CHSFIND_CH(.input_rab Crab$w rszJ-1-.i, old C. i+1), 

> 748 980 4 CIF".old Ceid"EQL '<* THEN *>* ELSE *"") 

: 749 0981 4 IF .p NEQ 0 ; if a. le, found, 

3 P28 04-04 4 THEN 
; Pe) 4 F ; hae ' . Ki 

2 en = .p- 0 ength t s over 

3 738 0385 2 cHnOvEt. (en, ol old ys i+1], butter Pty i619); : : ae 

: S « .len; hen s o terminator+ 

3; 5 0987 4 END; 4 

; 756 0988 ; END; 

3; 757 0989 TES; 

; 758 0990 END; 

; 759 0991 

; 760 099 input_record (0) = .input_rab Crab$w_rsz]; 

: 761 099 input_record (1) = buffer; 

s 6 0994 

s 76 0995 RETURN true; 

; 764 0996 

; 765 0997 1 END; 


.PSECT SOWNS,NOEXE,2 
OO2EO BUFFER: .BLKB 256 
.EXTRN SYSSGET 
.PSECT S$CODE$,NOWRT,2 
O7FC 00000 GET_RECORD: 
WORD 
| 


war rr Pe Te Pa Te Te Pe TE Pee TET eee eee Tee eee eee ere rere rere rerercrrerereceraerere rere le rele Taye ete te ts 
me ee ee ee ee a ee ek me ee ek ed ae ed ed ed ed ed od 8d od wd 2d ot od = 


. Save R2,R3,R4,R5,R6,R7,R8,R9,R10 > 0916 
SA 0000' CF 9€ 90002 MOVAB BUFFER, 6 ; 
59 00006 CF 9E 9000 MOVAB  INPUT_RAB+34, R9 : 
DE Ad 9F 0000C PUSHAB INPUT~RAB + 0942 
000000006 00 01 FB 000k CALLS #1, SYSS$GET : 
52 50 D0 0016 MOVL 0, STA : 
iF ; E 90019 BLBS STATUS, 2$ : 0944 
0001827A =F ; D 001¢ CHPL STATUS, #98938 > 0947 
DE AD OF 00 3 PUSHAB INPUT RAB + 0949 
0000G CF 9F 000 PUSHAB INPUT FAB ; 
009710B4 i DD 000 PUSHL #9900212 ; 
00006 cf 3 FB 0 CALLS a RMS_ERROR : 
0 5 BO , 1$: HOVL STATUS, “RO > 0951 
0000' CF p6 B 2%: INC INPUT_LINENUM : 0954 
FF2C «CA 9G F CLRB —s LINE_OUTPUT : 0955 
69 8 4 TSTW NPUT_RAB+ 34 > 0957 
19 4 BEQL : 
0c 06 B9 91 0004 CMPB = INPUT_RAB+40, #12 : 0958 


Page 
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Pe PSPSPS FS TS FS FSFE FS FS FS HS TSHR HS HS FS FS FATS HS FETS FS FS FS TSHR FESR HR FR HS HR FESR FE Hee 

a 
a 
oO 
la] Vv 
amd wer 
ws ar 
- oa 
~ N + -—-a 
a a a pelo} 
uw aw 
ce a . “ Zw 
a — — “ —ao 
_ Le] > i 
om 1 — . ~ @m _ 
wro wr oa ke o N Tro 
omrm wu a wv a . moa. 

=a<+++ a Nu Ww + ~ 2-~ ar 4 

<< Dao - ue MM OO & «eo ick wf 

3aacan eon 8® DD = ® =e = = 8 ~ q@s 

mw ete#e v @ ba 4d = «oO —— = xo 

ae Ft s . -_ oOo ke io 4 a —— wae 

ata san ~ _— 7 ~ a po . . ss Du 

2.00 «aAMmrMm MM CUeM Me am ~w ~~ s A -22Z Au * 
RPOVSZZSZZS-“OZSITHACSHMOASHTZO OZTHOOHM = 8— OMWWOZD— 
1 Se tt ES NN BH OWN IE ._ BOR TOCOA§—&IuIe-OR 

= “" 

” 32a4 ae. ft A | tee | 
ous uN AMOOc@D OwsOagtssj@Od0y 68d gg IVUIUIN a 
eee aS See ee ee ee ata Ss ese SaeBascu 
Z2ZawZo2ecoos tZOVAIBwzSrIwakZOoOcoo]Zivw soacooow 
DLYO—-EFFOtFVOVOVVOY OVO OfVATOE tO + ONEIAAIETEEAM 

- oF oh 

we rd a A APP & Oo 

”" wT w sO ™~oo oa - 
pe pe Pty Sti Le tte be ee Nr we Re Vermeer Oo Osh DOWD 
FITOMMNNNN OOO OFr-P-P-P-P-P- O DWOAAOOS EEE Ce CODOOVVwW 


a nee ne ew ee ew we ew www a ola lo leolalololelolelololeololololo) 


NO OVW KO ee NM RE OP VO OO LT NMIMDOWOWOY 
He DOM RK VOOR ORK OR OO — VOY — OF OM — AO ON EMO OO 
OA ADA D911 INDO OMNI DOO PMD WIPO OU ee LUE COO Ee 
OOO LOOM J OWO DOM OOOMMNN I DOMONUMNOMNOMMUN OOO 
oOo Se) oO 
Oo o Oo 
rvs mo OOuw 8« OO WW YY DO OY -—- =O —NMOOuULO 
vw mw ae a co = NN wm WW AMO HH NW WEI|MOUWN 
oO oO 
wo oe 
o - <« - oo 
Oo oOo Ff Oo oo 
o oo 
Oo oo 
~~ o mw ™N ~o wv 
w wow < Www <= 
< 
4 
- - 
oO Oo 


Routine Base: S$CODE$S + 019A 


201 bytes, 


ay 
NN 
- 
w” 
wy 
Cc 
-— 
ot 
= | 
° 
ax 
*. 
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PARS PARSE THE MESSAGE SOURCE FILE 18-Sep-1984 96 05:14 VAX-11 Bliss-32 V4.0-742 Pa age 47 | 
v04- 14-Sep-1984 46:23 DISKSVMSMASTER: CMSGFIL.SRCIJPARSE .B32; 1 wn 
: 767 998 1 ROUTINE message init = 
: 768 0999 ' “e | 
; 769 1000 1 !<-- 
:; 770 1001 1! 
s ri 1 4 .a This rout ing initializes all the joqet variables set 
; ire 1005 1! during parsi ng of a message definition Line so that 
ve 1004 1! nothing is taken from a previous definition. 
: 774 1005 1! 
s 775 1308 1 ! Inputs: 
; 776 1007 1! 
s v7 1008 1! See OWN storage in the module header. 
: 778 1308 1! | 
; 779 1010 1 ! Outputs: 
: 780 1011 1! 
; 781 \olg 1! Same 
3 76 1013) 1 fee- 
: 78 1014 1 
s 784 1015 BEGIN 
; «785 1016 
; 786 1017 symbol_name [0] = 0; ' Clear Lgngeh of symbol name 
3; 787 1018 severi -value = -1; ‘ +: to illegal value 
; «788 1019 Lang_valie default lang; ' Set current language default 
; 789 1930 faocnt “value = 0; ' Default is 0 
; 790 1021 ao Value C0) = 0; ' Default is use symbol_name 
; 791 1068 detail_value = 0; ' Default is 0 
; 79 10 userval_value = 0; ' Default is 0 
; 79 1024 
3; 794 1025 RETURN true; 
: 795 1026 
: 796 1027 1 END; 
0004 00000 MESSAGE_INIT: 
-WORD Save R2 ; 0998 
52 0000' CF 9€ 80008 OVAB SYMBOL_NAME, R2 3 
62 04 0000 LRL 3 MB 3; 1017 
08 A 01 cf 0009 MNEGL SEVERITY_VALUE : 1018 
2c COA CO A2 00 0000 MOVL DEFAULT T_LANG> VEANG. VALUE > 1019 
C Ad 04 0001 CLRL FAOCNT_QVALUE : 1020 
Q <A2 04 0001 CLRL IDENT VALUE : 1021 
A2 04 18 CLRL DETAIC_VALUE 3 19 ¢ 
A D4 1B CLRL USERVAC_VALUE 
50 0 B0 bs MOVL #1, RO 3: 1025 
4 00021 RET : 1027 


; Routine Size: 34 bytes, Routine Base: S$CODE$ + 0263 
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WWNws 
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(09 Cd CO CD Gd OD OD Cd GD Cd OD OD Cd Cd OD CD Od OD OD OD Od OD GD OD Co Op OD OD OD CD OD CD CD C9 OD CD CD CD OD CD CD CD CD CD CD OD 
OUEWN 0 DONA U EWN O OBNOUSWN HOV ONOU SW —OV0O~ 


= 


oo 
= 
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1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


COOCOSCOCOCOSCOCOCOCOCOSCOCOCOCSOSOOOSOSOOSOO OOOO OCOCOC OOOO O OO OOOO OOOO OOOO OOOOOOO 
PAN 320 OD NOAM EAN 0 OD NAME WIN 0 ODNO UE WN $0 OONOAOU ES UNC ODNOUS WI OU0OW 


eee): ee ee ee 


ROUTINE message_defn = 


m 11 
1e-Sep-1986 19:46:28 


This routine processes the information stored by the 
TPARSE action routines and created the necessary message 
definition blocks to store the data. 


Inputs: 


Outputs: 


Control blocks are allocated and Linked into the 


message definitions. 


BEGIN 
BUILTIN 
INSQUE; 


Pp 
ap: REF BBLOCK; 


LOCAL 


code: REF BBLOCK, ! 
status, 


msglen; ! 


Check size of 
here because i 


em 


geet symbol name. 


i 
i 
i 
i 
i 
i 
See OWN storage in the module header. 
' 
i 
' 
' 
i 


! Address of tparse block 
! Insert into 


Address of CODE block 
Length of MSG block 


This must be done 


is made up of the 2 separate strings. 


IF_.symbol_name (0) + .default_prefix [C0] GTR sym_plus_pre 


RETURN(syntax_error(.ap,emsg(symtoolng))); 


! Default any unspecified values 


IF .ident_value (0) EQL 0 : 
THEN 

BEGIN 
ident_value (0) = 
IF .ident_value (0 
THEN 


ident_value [0] = _ident_bufsiz; ! 


sPzabot name (0); 


' then signal it 


If /IDENT not specified, 


! then use symbol name : 
TR ident_bufsiz ! If symbol larger than max. ident 


then truncate to maximum size 


CuSMOVE(. Tdent value CO], .Symbol_name (1), .ident_value (1]); 


! Allocate the space for the definition 


RCIPARSE .B32; 


inked List 


FWA WI nonon 


msg_code (sts$v_severity] = .severity_value; ! Set severity 
it wet -facility_ flags Cshared_bit] ! If /SHARED, 
msg_code (sts$v_fac_sp] = true; ! then this is facility specific 
CHSCOPY(.default_prefix(0], Got pult prefis C1), 
symbol_name (0), .symbol_name [1], 
6, sym_plus_pre, symbol _buffer); ! Copy symbol name 


symbol_desc fo} = .default_prefix CO] + .symbol_name (0); ! Setup descriptor 


symbol _desc symbol _buffer; 


status = add_symbol(symbol_desc, .code [code$l_number]); ! Add to symbol table 


N 11 
PARSE THE MESSAGE SOURCE FILE 19-30-1386 96:03:33 VAX-11 Bliss-32 V4. 
14-Sep-1984 12:46: DISKSVMSMASTER: CMSG 
1 : 
1 
‘ msglen = mrec$c_fixedlen + .ident_value [0] + .message_text [0] + 2; 
: {i .qnsalen AND T ! If not on word boundary 
103¢ msglen = .msglen + 1; ! Force to word boundary 
1838 IF NOT allocate(code$c_length+.msglen,code) ' Allocate block 
109 ! and signal any error 
INRe RETURN true; ! Return no syntax error 
109 
1037 Setup the fields of the CODE/MSG block 
1099 
1100 BEGIN 
1101 
1136 LOCAL 
110 symbol_buffer: VECTOR Esyabol_bufeta OYTE3. | Global symbol name 
tbe symbol_desc: VECTOR (2); ! Descriptor of above symbol 
1106 BIND 
1107 msg = code ccodese msg 0,0,0]: BBLOCK, ! MSG block is hung off CODE block 
1108 msg_code = code [code$l_number]: BBLOCK; | To get at STS fields 
1110 code C[code$l_number] = 0; ' Preset longword 
1111 msg_code [sts$v_fac_no] = .facility_number; ' Set facility number 
1118 msg_code [sts$v_code] = .message_number; ! Set message number 
3 it_eevertty_velue LSS 0 ! If severity unspecified, 
1118 iF -gcotoutt cov GEQ 0 ! If default severity specified, 
1333 severity_value = .default_sev ! use default severity 
1120 BEGIN ! Else, 
1121 syntax_error(.ap,emsg(nosever)); : atgnet unspecified severity level 
11 ; severity_value = sts$Sk_error; ! use error to keep going 
11 END; 
138 
1156 
18 
11 § 
1130 
1133 
11 4 
1134 
HE 
1139 
1138 
1139 
1140 
1141 


AAA AAAI AINA AIA AINA AAI & BANANA AAAI 
“4 


IF NOT .status ' If error detected, 
THEN 


RCIJPARSE .B832; 


ce ce cl ee cel ce cee ll el el ee el el el el cl ll el el le el el el 


PARSE THE MESSAGE SOURCE FILE 


<v 
ee 
3 


1984 02:05:14 VAX=11 Bliss-32_ V4.0-742 P 0 
138 13:88:38 DISKSVMSMASTER:CMSGFIL. SRCJPARSE.B32; 1° a) 


BEGIN 
deallocate(code$c_length+.msglen, .code); ! Send CODE block back 
— true; ! then return, error already signaled 


onovno 
—— — 3) 2 ss 4 


OONOUL Wry 


Zero MSG block 

Set Length of block 

Initialize flags 
Set detail level value 

Set FAO count value 
Set user value | 


CHSFILL(O -msglen.msg) ; 

msg (mrec$w_size] = .msglen; 

msg ([mrec$b_flags) = 0; 

msg Lmrec$b_levelJ = .detail_value; 
msg Lmrec$b_faocnt] = .faocnt_value; 


msg mrece.yeor yer = ,userval_value; 


: 1108 4 

; 1145 4 

; 1144 4 

; 1145 

3; 9 1369 

Be 114 

ee 11¢8 

; 9 114 

: 920 1150 

3s Dey 1151 

3; » ¢ 11 ¢ 

3; F 2 msg Lmrec$b_lang Lang_value; ! Set Language number 

> 924 1154 msg Lmrec$b_ dent len) = ,Tdent_value oi: Set_ident string (ASCIC) 
; 925 1155 CHSMOVE(. idént_value(0), ident yolug 1 atg ferecdt_tden )); 

; 926 1156 msg [mrec$c_fixedien + .ident_value 1+1,0,8,0) = 
: 927 1157 -message_text 0; ! Set message text string (ASCIC) 

; 928 1158 CHSMOVE(.message_text [0], .message_text (1), 

; 929 1159 msg Cmrec$c_fixedlen+. ident value 03+2,0,0,0]); 

3; 9 1160 END; 

; 931 1161 

; O38 BS status = add_message (.code); ! Add message to Linked List 

; 934 1164 IF NOT .status ! If error detected, 
; 935 1165 THEN 
; 936 1166 BEGIN 

; 937 1167 deallocate(code$c_length+.msglen, .code); ! Send CODE block back 

; 938 1168 3 RETURN true; ! return, error already signaled 

; 939 1169 ND; 

; 940 1170 

; 941 1171 mSQ_space = .msg_space + .msglen; ! Total all space used by MSG blocks 

; 9% 1178 num_messages = .num_messages + 1; ' Count number of messages in List 

: oh 1it7 mesSage_number = .message_number + 1; ! Skip to next message number 

3; 945 1175 IF .cli_flags Cqual_mdl) ! If /MDL specified, then define a constant 

; 946 1176 THEN BEGIN 

3 947 1177 mdl_define_constant (symbol mame, code [code$l_number], (NOT breeret fine? -ap); 
; 948 1178 3 IF .ap Ctpeet stringent NEG 0 ! Still a comment left to parse in this record 
; 949 1179 «3 THEN new_Line = false; ' Do not start a new Line for any comment 
Beet A Poke 

; 236 Ht If .cli flags Cqual_sdlJ ! If /SDOL specified, then define a constant 

; 95 118 THEN BEGIN ; 

: 954 1184 sdl_define_constant (symbol name, code [code$l_number], (NOT titeret flee). -ap); 
; 955 1185 IF .ap Ctpgel ste tnecats NEG 0 ! Still a comment left to parse in this record 
; 956 1186 THEN new_line = false; ! Do not start a new Line for any comment 

; 957 1187 END; 

; 958 1188 : 

; 959 113 Line _with_vaiue (.code Ccode$l_number]); ! Output Line w/msg number 

3 6 B+ 4 Line_output = true; ! Mark Line already output 

; 208 1136 RETURN true; 

; 96 119 

; 964 1194 1 END; 


.EXTRN MSG$_SYMTOOLNG, MSGS$_NOSEVER 


—_ TF OO --ororcr orm _ a ee —- -_— ——_—_ _ - . = 
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y042600 Weaeen eRe PS eR se Pe taleteacchsel i, Secapanse.esert™” chy 


s ii 

st) Mapas secrormnaat 4 Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 1028 

. ave . . ? . . . Py r: { 

SE 2c C2 9002 SUBL2 #44, SP : at 

50 0000" CF 0000° cf C1 0000 ADDL DEFAULT PREFIX, SYMBOL_NAME, RO > 1065 i} 

iF 0 D1 00000 CMPL =O, #31 : 2), 

— 15 0001 BLE $ : 2), 

000000006 8F DD 0001 PUSHL  #MSG$_SYMTOOLNG > 1067 at 

s DD 0001 PUSHL AP : i) 

00006 CF 02 FB OOOIA CALLS #2, SYNTAX_ERROR : | 71 

04 0001F RET ; | 2), 

0000" <cF D5 00020 18 TSTL DENT_VALUE ; 1073) 2) 

in 1 024 BNEQ $ : | 2 1, 

0000" CF 0000" CF D 0 026 MOVL § SYMBOL_NAME, IDENT_VALUE > 1076) 7] 

OF 0000" fF b} 00040 cHPL IDENT VALUE, # : 1077) 3 ht 

0000" CF if D0 00034 MOVL_ #15, IDENT VALUE : 1079, Pee 

0000" oF 0000' oF 0000" CF 28 00039 3s MOVC3 IDENT_VALUE, @SYMBOL_NAME+4, @IDENT_VALUE+4 ; 1080) : 4, 

56 0000" CF 0000" CF C1 00043 3$ ADDL3 MESSAGE_TEXT, IDENT_VALUE, R6 > 1087 | : f, 

56 0B CO 00048 ADDL2 #11, MSGLEN F 2), 

02 56 £9 0004E BLBC © MSGLEN, ; 1088) i] 

56 D6 00051 INCL MSGLEN : 1090 3 1, 

5E DD 00053 4$ PUSHL : 1092 : 1 

08 A6 9F 00055 PUSHAB 8(MSGLEN) : 21 

0000v CF 02 FB 00058 CALLS #2, ALLOCATE : 3 3, 

03 29 §8 00050 BLBS = RO, 5$ ; 3) 

014D 31 00060 BRW 14$ : | 2 | 

59 6E DO 00063 5$: MOVL CODE, R9 : 1107) 31, 

57 08 AD 9E 00066 MOVAB 8(R9S, R7 : | 31, 

58 04 AD YE 0006A MOVAB 4(R9), R11 + 1108 | 3 1, 

6B D4 0006E CLRL (R11) : 1119) : 1 

02 AB 0c 00 0000' CF FO 00070 INSV FACILITY_NUMBER, #0, #12, 2(R11) 31111 sf 

6B 0c 03 0000" CF FO 00078 INSV MESSAGE NUMBER, #3, #12, (R11) : 1112) Bi 

0000" CF 05 O007F TSTL SEVERITY_VALUE 7 1114 $1 

20 18 00083 BGEQ § ; eS 

50 0000" CF 00 00085 MOVL DEFAULT_SEV, RO 3 1116 3 3 

7 19 0008A BLSS ; 2), 

0000" CF 0 vO 0008C MOVL RO, SEVERITY_VALUE : 1118 iF 

12 11 00091 BRR 7 : | 71 

000000006 8F ODD 90093 63: PUSHL #MSG$_NOSEVER : 1121) .. 

5C 0D 00099 PUSHL AP : me | 

0000G CF 02 FB 00098 CALLS a. SYNTAX_ERROR : 3 7 

0000' CF 02 dO 000A0 MOVL #2, SEVERITY VALUE > 1122 | 31 

68 03 30 0008. CF Fe 8 AS 7$: INSV SEVERITY_VALOE, #0, #3, (R11) > 1125) 3 

000" CF : AC BLBS FACILITY-FLAGS. 8$ > 1127) 71 

01 AB 80 8F 8&8 90081 BISB2 #128, 1(R11) : 1129) 31 

SA 1F 00 00086 8$ MOVL #31, R10 : 1131) 31 

58 oc AE 9E 00089 MOVAB SYMBOL_BUFFER, R8 ; 31 

SA 00 0000" ODF 0000" CF 2C 000BD MOVC DEFAULT PREFIX, @DEFAULT_PREFIX+4, #0, - ; 37 

68 00C R10, (RB) ; : 1 

14 18 000C BGEQ 86-9 ; 31 

58 0000" CF C0 00¢9 ADDL DEFAULT_PREFIX, R8 ; 21 

SA 9000" CF g 0c SUBL DEFAULT PREFIX, R10 ; 31 

SA 00 0000" OF 000' cf C 9903 MOVCS SYMBOL_RAME, @SYMBOL_NAME+4, #0, R10, (RB) ; | ; 

06 AE 0000' CF 0090" CF C1 000DD 98: ADDL3 SYMBOL_NAME, DEFAULT_PREFIX, SYMBOL _DESC : 1135 | 31 
08 AE C AE SE 000E6 MOVAB SYMBOL~BUFFER, SYMBOC_DESC+4 > 1136 


- 
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PARS PARSE THE MESSAGE SOURCE FILE 16-Sep-1984 02:05:14 VAK=11 Bliss-32 v4.0-742 Page 52. PAR 
v04= 12-308- 1382 %§ 46:23 DISKSVMSMASTER:CMSGFIL.SRCIPARSE.B32:1° (B) v04 
68 po EB PUSHL (R11) : 1138 
08 AE 9F OO0E PUSHAB SYMBOL_DESC : 
0000v CF F F CALLS +e ADB_ SYMBOL 3 
: P OF BLBe erATon 408 1140 
56 00 6E 09 5? oF8 MOVCS #0, (SP), #0, MSGLEN, (R7) t 1147) 
67 5 80 191 MOVW MSGLEN, (R7) + 1148 
03 A? 94 104 CLRB  =s-3(R?) + 1149_ 
04 A? 90 0' CF 90 00107 MOVB DETAIL_VALUE, 4(R7) + 1150) 
5 A? 000' CF 90 0010 MOVB  FAOCNT- VALUE, 5(R7) + 1151 
06 A? 90 ‘ee ¢ O11 MOVB = USERVAL VALUE g(R7) : 1138 
08 A7 00' CF 90 0011 MOVB = LANG_VACUE, 8(R7) + 115 
SA 000° ct D0 oor MOVL IDENT VALUE, R10 + 1154) 
09 AZ A 90 00124 MOVE. R10, ) : 
OA A? 0000" DF SA @8 00128 MOVC3 R10. @IDENT VALUE +4 10(R7) + 1155 
OA AAG? 0000' CF 90 OO1eF MOVB. MESSAGE_TEXT, 10(R10)(R7] > 1157) 
OB AAG? 0000" oF 0000" CF 28 001 MOVC3 MESSAGE-TEXT, @MESSAGE_TEXT+4, 11(R10)CR7] : 1159 
59 DD 00140 PUSHL R9 : 1162) 
0000v CF 01 FB 9014¢ CALLS #1, ADD_MESSAGE : | 
58 20 DO 0014 MOVL RO, STATUS : 
0c 58 EB OO14A BLBS § STATUS, 11$ + 1164 | 
59 DD 90140 10$:  PUSHL R9 + 1167) 
08 A6 9F 0014F PUSHAB &(MSGLEN) : 
0000 CF 0¢ FB 0015¢ CALLS #2, DEALLOCATE ; 
57 11 0015 BRB 4 + 1168 
0000" CF 56 CO 00159 11$ ADDL2 MSGLEN, MSG_SPACE + 1171 
0000" CF 06 0015E INCL NUM MESSAGES : 1172) 
0000" CF D6 00162 INCL § MESSAGE_NUMBER t 1173 
19 00006 CF 03 £1 00166 BBC #3, CLIZFLAGS, 12$ + 1175 
5C DD 0016C PUSHL AP : 1177 
7E 01 CE 0016E MNEGL #1, =(SP) ; 
5B DD 00171 PUSHL R14 : 
0000" CF 9F 00173 PUSHAB SYMBOL_NAME : 
00006 CF 04 FB 00177 CALLS #4, MDC_DEFINE_CONSTANT : | 
08 AC D5 0017C TSTL  8CAP) : 1178) 
04 13 O17 BEQL 12$ : 
0000" CF D4 00181 CLRL = NEW_LINE : 1179) 
19 00006 CF 04 €1 00185 12$: BBC #4,~CLI_FLAGS, 13$ : 1182) 
5C DD 00188 PUSHL : 1186 | 
7E 01 CE 00180 MNEGL #1, =(SP) ; 
5B DD 00190 PUSHL R14 ; 
0000' CF 9F 00192 PUSHAB SYMBOL_NAME : 
00006 CF 04 F 00196 CALLS #4, SDC_DEFINE_CONSTANT : | 
08 AC 05 00198 TSTL  8(AP) > 1185 
04 1 00196 BEQL 13$ : 
0000" CF D4 OO1A CLRL  NEW_LINE > 1186. 
6B DD OO1A4 138 PUSHL (RIT) > 1189 | 
00006 CF oT FB OO1A6 CALLS #1, LINE_WITH_ VALUE : 
0000' CF 1 90 OO1AB MOVB #1, LINE~OUTPOT : 1190. 
50 01 DO 90180 14$ MOVL #1. RO : 1192 | 
04 0018 RET : 1194 | 


; Routine Size: 436 bytes, Routine Base: S$CODE$ + 0285 
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ROUTINE add_message (code) = 


emsg(dupmsg), .code Codes number), 
msg (mrec b_identlen], msg Cmrec$t_ident]); 


i emsg(dupmsg) : 


code ECcode$l_link] = .prev Ccode$l_link]; ' Link into list 
prev Ccode$l_link] = .code; 


; 1195 1 7) 
; 1196 1 7] 
; 968 1197 1 !-=- 2] 
; 969 1198 1! 3), 
; 970 1199 1! This routine adds the specified CODE definition block ° : 
; 971 1200 1! to the Linked List. | ‘ 

: 97 1201 1! | i) 
: 97 1 O¢ 1 | Inputs: | :] 
> 974 12003 1! | ae 
3 Ore 1206 1! code = Address of CODE block .4 
; 976 1205 1! tparse_block = Address of TPARSE block 7] 
; 977 1206 1 | message header = List head of CODE List | ey 
: 979 1208 1 ! Outputs: | 1 
: 980 1209 1! : 

; «981 1210 1 ! r0 = status (already signaled) ‘ t 
; 98 1211 1! : 1 
; 98 1 ig 1 jee. :] 
; 984 1213 1 21 
; 985 1214 2 BEGIN :] 
; 987 1216 2 MAP i] 
; 988 W217 code: REF BBLOCK; ! Address of CODE block He 
: 990 1319 ; LOCAL | :] 
; 991 1220 ptr: REF BBLOCK, ' Current position in linked List | 2) 
: 9 1221 ; prev: REF BBLOCK; i Previous entry in Linked List | 3 | 
; 994 1555 prev = message_header; ! Start at List head i] 
; o32 \$se 3 ptr = .prev Ccdde$l_link); ! First entry in List : 
s Per 1226 WHILE .ptr NEQ 0 ! Until we reach end of List, ‘ 1 
; 998 1227 2 00 : 1 
; .999 1228 BEGIN i] 
; 1000 \$¢2 IF (. ptr Ccode$l_number] AND sts$m_cond_id) GEQU ; | i) 
: 100) 1930 4 (.code Ccode$l_number] AND sts$m_cond_id) ! If found position, | : 
3 1008 1636 EXITLOOP; ' then exit the search ] 
: 1004 123 prev = .ptr; i Save address of previous entry 3 1 
: 1005 1234 ae. = .ptr Ecode$t_Link); ! Skip to next entry 31 
; 1006 1235 2 ; 7] 
; 1007 1236 | i] 
; 1008 1237 2 IF | 2] 
; 1009 1338 “AND tc Aa code$l_number] AND sts$m_cond_id) EQL : 1 
3 1239 (,code Ccode$l~ “number] AND sts$m_cond_id)) ! If already there, 

3} isc THEN 

3 1 1241 BEGIN 

31 1 ri} BIND msg = ptr Ccode$c_msg,0,0,0): OPLOEK: ! Access msg defn block 

3 : ' ra syntax_error(tparse_blick, ignal dup error 

3% 1245 

a | 1246 

3 1 1247 

31 1248 

3% 1249 

71 1250 

53 1251 
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12738b-1$8e 93:28:38 DISKSVMSMASTER: CMSGFIL.SRCIJPARSE .B32 


ROUTINE facility_defn = | 


P 57. 
et) 


& 


This routine generates the necessary control blocks 
to describe e newly defined facility. 


Inputs: 

See OWN storage in module header. 
Outputs: 

The FAC descriptor block is generated. 


COOOCOCOCOCOCOCOOOOOOO 


COOCGCCOOOOCOCCCCOCoOo 
OO NO UE WO OONO UE WI 0 OD NOU EWN (CO ODNOAOUE WN S(O OONOY FW (OO DOONOULW 


CO O000 090000 NI NII NIN NINN NINO OO 


BUILTIN 
AP; 


Pp 
ap: REF BBLOCK; 


S355 
MO ODNAOUESWN $0 0ONOUS WO 0 


LOCAL 


| 
| 
| 
BEGIN 
| 
status, | 


S3Ssssss 


ee ee ee ee a ee ee ed nd nd od od ed 
ooo 
ooo 
= 

ee ee ee ee ____._. ee ee ee ee ee eee 


fac: REF BBLOCK; ' Address of FAC block 


oO 
w 


Do nox allow a facility number other than 0 with /SHARED 


32S 


pyoten.or earl «MD. emsg(sharconf)); ! Signal syntax error 
— true; ! return no syntax error 


ooo 
ARAL —SSex~ 


oo 


BEGIN | 
| 
| 
Allocate memory for FAC block and fill it 

| 


oo 


Nounun=ooew 


IF NOT allocate(fac$c_length, fac) ' Allocate block 
! and signal any error 
RETURN true; ! Return no syntax error 
ut -facility_flags Csystem_bit] ! If not /SYSTEM, 


facility_number = .facility_number 
OR Tsts$m_cust_def * -SBITPOSITION(sts$v_fac_no)); 


fac Cfac$w_number) = facil ity number: ! Set fag ibity number 
y : e 


BEE FANN WWI MAA WII PIPININININIPONIDS 2 OP OO OO SS OO 


fac Cfac$b_namelen) = faetlt _name (0); ' Set name length 
CRORIWE (, Fc) 'ty name OJ, .facility_name [1], ! Set string into block 


ac (fac 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
3 
: 7g factl tty fogs Cshared_bit] AND .facility_number NEQ 0 


Be Oe Be Be Be Se Be Be Oe Oe Oe Be Be Se Se Se Se Se Be Ge Be SH Se Se FH SH Ge FHSS Se Se Se Se Ge Ge Se Oe Oe Se Se Ge Se Se Se Se See Se See eee SH Se Se Seas 


WWW AAI WIAA AAAI AIA AANA WANA AAA WW 


el a ae a ed ed ed ed ed etd md = CHOOOOO OD 


ROPING at a wt 
m—OCOew 
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_namej) 
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v04= 1a-8ep-19 4 03:34 DISKSVMS R= CMSGFIL. SRCIPARSE.B32:1) (11). v04 
! 


-macro_name (0) NEQ 0 If /MACRO specified 


EN facility_flags = .facility_flags OR macro_mask; 


IF 

TH 

IF .ap CtpeSt stringent] NEQ 0 ' Still a comment left in record 

THEN new_line = false; ! Do not start a new line for a comment 

tinea nattechinie C0} EQL 0 ! If no default prefix specified, 
BEGIN | 
LOCAL delimdesc: VECTOR (2); 
delimdesc £0) = 2; 
delimdesc (1) = UPLIT('$_'); ! Set delimiter to '$_' 
IF .cli_flags Cqual_mdlJ ! If /MOL specified, then start structure | 
THEN BEGIN 3 6 

pes setere.trus (facility_name, .facility_number, macro_name, facility_flags); 

IF .cli_flags Cqual_sdlJ ! If /SDL specified, then start module | 
THEN BEGIN 


get etert_ned (facility_name, .facility_number, macro_name, facility_flags); 


oy facility _flags Csystem_bit] ! If user facility, 


BEGIN 
delimdesc [0] = .delimdesc [0] - 1; ! Use '_* as delimiter 
get \ndeas C1] = .delimdesc (1) + 1; 


default_pref ix £0) = .facility_name [0] + .delimdesc (0); 
default_prefix C1] = prefix_buffer; 
CHSCORYT, tactl tty name (0), facility name C1], ! Setup default prefix 
-delimdesc (OJ, .delimdesc (1), 
0, prefix_bufsiz, prefix_buffer); 


WN SO CODNOAUEWN $0 COONAN WN 0 OONOUES WN ("OVO ONOULW 


Be Se Se Be Oe Oe Oe ae Be Ge BBs Oe Be Ge BH Se Se Se Oe Ge Be Ge Se Se FHS Be Be Be Se Oe BH Oe Oe SH Oe HSH Oe BHO SHS SESH Se SE Sees Se esese Se esese 

ee ed ee ee ee a ee ee ee ee a a el el el cl el cl lt eel ec el el cl cl el el lh el el el el el cl el el el el el cel el 

ee ee lh ee ced ee ce el eel ee el cel cel el cl el cel el cl el el cel cl lt cl ells cel cl alls lt cls cel cel cecalls cel alls cel calls cel cls alls cel cls cals lls als alls celle lls le calls 
SESS SP SS SSS ab hv OS Oere eh ubnae 

DAFA 0 OB WOU EWN $9 OD NONE WIN  O OONOU EWN O ODN UE ARO OONOUS WO 


NNN NNN NSS ODA PLA ASP ANANDA LANA EE IE EEE ENA 
eee ee ee ee ee eee SS 


PPLE EE FAA WANA AAA WIAA AANA Ww 


AAAAIIPRIWIWH EE BAIA BANNAN BANA BE FAI BE 


| 
ELSE BEGIN ; | 
facility_flags = .facility_flags OR prefix_mask; | 
IF .cli_flags Cqual_mdlJ ! If /MDL specified, then start structure 
5 THEN BEGIN 
$ od) start _strus (default_prefix, .facility_number, macro_name, facility_flags ); | 
8 . | 
9 IF .cli_flags Cqual_sdlj ! If /SDL specified, then start structure 
0 THEN BEGIN 
1 pel stert_ped (default_prefix, .facility_number, macro_name, facility_flags ); 
g 0 - | 
4 0 END; 
5 0 
§ 0 BEGIN 
0. LOCAL 
8 0 
S 0 


name_buf fer: VECTOR pghi8esyests BYTE. 
mname_desc: VECTOR (2); 
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PARSE THE MESSAGE SOURCE FILE 16-Sep- 138% 96: 9: \ X-11 Bliss-32 V4.0-742 Page 
14- =Sen- SKSVMSMASTER: CMSGFIL.SRCIJPARSE.B32;1 
; 1180 1407 
: 113) 1408 CHSCOPY ( 16°* ifs cSh ane namelen), fac Cfac$t_name], ! Make fac$_FACILITY name 
7 11 ¢ 1409 UP $_FACILITY') 
: tt 1410 j$c Loonies name_buffer); 
3 11 1411 name desc. o's = fac Cfac$b_namelen] + 10; ! Make descriptor of name 
; a 1e16 ree “desc = name_buf fer; 
: 11 § 141 F_NOT Lookup_symbol Tname_ desc, status) ! If not already in symbol table, 
; 118 1414 then 
; 1188 1415 4 NBEGIN 
: 1189 1218 4 status = add gevener tone. desc, .fac Cfac$w _number]); ! Add to symbol table 
: 1190 1417 4 IF NOT .statu | If error detected, 
3 1191 1213 4 HEN 
3 1136 1419 5 "BEGIN 
3 119 1420 5 de Pi Leceret tects _length,.fac); ! Send FAC block bac 
: 1194 1421 § RETURN true; ' return, error olcees signaled 
3; 1195 14 ¢ 4 3 
3 1196 14 3 END; 
: 1197 1424 END; 
3; 1198 1425 
3 1199 1426 Line_with value (.fac Cfac$w_number]); ! Output Line w/fac number 
; 1390 1? Line_output = true; ! Mark Line already output 
3 1208 1 4 status = add_facility(.fac); ! Add facility to facility List 
3 12 1431 IF NOT .status ' If error detected, 
3; 1205 136 THEN 
3: 1206 143 BEGIN 
: 1207 1434 Soot erates feces _length,.fac); ! Send FAC block back 
3; 1208 1435 3 RETURN true; 
3 1209 1436 D; 
3 1210 1437 
3 1211 1438 num_facilities = .num_facilities + 1; ! Increment tect} ities in ist 
; isi¢ 1439 fac_space = .fac_space + Sey TEO FFSET(mfac$t name) + .faci ey name (0); 
3: 121 1440 ! had space to facility table 
3 1214 1441 RETURN true; 
3; 1215 1226 
3: 1216 1443 1 END; 
-PSECT SPLITS,NOWRT,NOEXE,2 
00 OO SF se OOOFC P.AAV: .ASCII \$_\<0><0> 3 
00 00 59 54 49 4C 49 43 41 46 SF 4 00100 P.AAW ASCII \3- ~PACILITY\<0><0> 3 
.EXTRN MSG$_SHARCONF 
-PSECT S$CODE$,NOWRT,2 
OFFC 00000 FACILITY_DEFN: 
SWORD Save R2,R3,R4.R5,R6,R7,.RB,RI,RI0,R11 3 
0000' CF 9E 90002 MOVAB FACILITY_NAME, R11 - ; 
SA 0000" CF 9 900 MOV FACILITYZFLAGS, R10 ; 
0c 00C SUBL #48, SP 3 
6A ES 0000F BLBC FACILITY_FLAGS, 28 : 
FC AA D3 O012 TSTL FACILITY{NUMBER : 
13 0001 BEQL 2s 3 
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PARS PARSE THE MESSAGE SOURCE FILE 16-Sep-1984 VAX-11 Bliss-32 V4.0-742 Page 61) PAR 
00500 12: =Sen- 138 95: 2: i} DISKSVMSMASTER: CMSGFIL.SRCIPARSE.B32; 1 79 af) v04 
30 AA OF DF PUSHAB DEFAULT_PREFIX : ;] 
00006 CF 4 FB E CALLS #4, MDL-START_STRUC : :) 
10 00G CF 4 E1 QOOE6 108: BBC #4, CLITFLAGS? 11 : 1396 7 
A BD EC PUSHL R10 : 1398 | 3 1 
50 AA OF FE PUSHAB MACRO_NAME : : 1 
FC AA bd OOF PUSHL FACILTTY_NUMBER : 3; 1 
30 AA OF 6 F4 PUSHAB DEFAULT_PREF IX : | :] 
00006 cf 04 FB F7 CALLS #4, SDL START _MOD : ; 3 
9 06 A6 9A OOOFC 11$:  MOVZBL 6(R6), R ; 1408 | 7) 
58 IE BO 00100 MOVL #31, RB ; | i] 
57 10 AE 9E€ 0010 MOVAB NAME BUFFER, : 37 
58 00 07 6 59 2¢ 00107 MOVCS RO, 7(R6), #0, RB, (R7) te.) : 1 
§ | e 
1 10 BGEQ $ : 1 
57 3 cD o116 ADDL 45° R7 : 37 
58 59 s 011 SUBL RS, RB : 3:1 
58 00  0000' CF OA 2C 00116 moveS #16, P.AAW, #0, RB, (R7) : : 
08 AE 06 Ab 9A OO1ig 12$:  MOVZBL 6(R6), NAME_DESC + 1411 71 
08 AE OA CO 001 ADDL2 # DESC : 31 
OC AE 10 AE 9E 00127 MOVAB NAME BUFFER, NAME_DESC+4 + 141 71 
04 AE OF 01 C PUSHAB STATOS + 141 71 
OC AE 9F OO12F PUSHAB NAME_DESC : : 1 
0000v CF 02 FB 001 3 CALLS #2, FOOKUP_SYMBOL ; i] 
14 50 3 0013 LBS =—ss«aRO, -13$ : 31 
7E 04 Ab 3C 0013A MOVZWL 4(R6), -(SP) + 1416 31 
OC AE 9F 0013 PUSHAB bES : 31 
0000v CF 02 FB 00141 CALLS #2, ADD_SYMBOL F : 1 
04 AE 50 DO 00146 MOVL RO, STAT : 31 
1D 04 AE E9 0014A BLBC —« STATUS, 148 + 1417 31 
7E 04 A6 3C O014E 13$: MOVZWL 4 (R6) + 1426 31 
00006 CF 01 FB 0015 CALLS RO tne “Mit VALUE : : 1 
164 CA 01 90 0015 MOVB 4k LINE-OUTPOT + 1427 31 
56 DD 0015¢ PUSHL Ro + 1429 31 
0000v CF 01 FB 00136 CALLS #1, ADD FACILITY : 31 
04 AE 50 D9 0016 MOVL RO, STATUS : : 1 
0B 04 AE €E8 00167 BLBS STATUS, 15$ + 1431 31 
56 DD 0016B 14$:  PUSHL R6 + 1434 71 
16 DD 0016D PUSHL #22 ; 71 
0000v CF 02 FB O16F CALLS DEALLOCATE : 31 
0D 11 00174 BRB 166 + 1435 31 
1c AB D6 00176 15$: INCL. NUM FACILITIES > 1438 : 1 
50 20 «AB 6B C1 00179 ADDL3 FACILITY_NAME, FAC_SPACE, RO 3 1439 3] 
20 «AB 03 AO 4 gore MOVAB 3(RO), FAC_SPACE : 47 
50 01 DO 00183 168:  MOovL #1, RO > 1441 : 1 
04 00186 RET + 1443 3 1 
; Routine Size: 391 bytes, Routine Base: S$CODE$S + 04E6 3 \ 
° 
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ROUTINE add_facility (fac) = 


r0 = status (already signaled) 


! 

1 

! This routine adds a specified fog st tay definition 
block (FAC) to the defined facility List. 

; Inputs: 

fac = Address of FAC bloc 

! tparse_block = Address 7 TPARSE bloc 

facility. header = List head for defined facilities 
; Outputs: 

1 

' 

! 


BEGIN 
MAP 
fac: REF BBLOCK; ! Address of FAC block 
LOCAL 
ptr: REF BBLOCK, ' Current position in linked List 


prev: REF BBLOCK; ! Previous entry in Linked List 
Start at list head 


prev = facility. sf tink 


ptr = .prev Cfac$l kj; i First entry in List 
WHILE .ptr NEQ 0 ! Until we reach end of List 
_ EGIN 
a al Cfac$w_number] GEQU .fac Cfac$w_number] ! If found position, 
EXITLOOP; ' then exit the search 
prev = .ptr; ; i Save address of previous entry 
_ -ptr Ctac$t_link); i Skip to next entry 
IF .ptr NEQ 0 
AND .ptr Cfac$w_number) EQL .fac Cfac$w_number] ! If already defined, 


BEGIN 
IF CHSNEQ(. fac Cfac$b_namelen], fac Cfac$t_name], 
-ptr CfacSb_ namelen), ptr Ctacke sane] 0) 
an facility names are att ttorent 
eo .fac Cfac$w_number)] NEQO ! i facility number 0 


syntax_error(tparse_block, ! signal facility conflict error 
emsg(conffac), 
e+ fac$w_number] 
recde “nameleni,ptr Cfac$t_name)); 
ha sunntzent tac! : 


THE 
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N 12 
gn 3e0- 138% 96:03:38 VAX=11 AMET =32 V4.0-742 
4-Sep-1984 12:46:2 DISKSVMSMASTER: CMSGFIL.SRCIJPARSE. B32:1 


13 
PARS PARSE THE MESSAGE SOURCE FILE 1b-se =1984 02:05:14 VAX=11 Bliss-32 v4.0-742 3) 
y0e 800 1e-8ep-1984 9 :46:23  DISKSVMSMASTER: CMSGFIL. SRCIPARSE. B32" ; att if 


: 1275 1501 fac CfacSl_link> = .prev Cfac$l_link]; ! Link into facility List 
; } f FS prev Cfac$T_link] = “ fac; J 
: 1278 1504 2 RETURN true; | 
: 1279 138? 
: 1280 1506 1 END; 
.EXTRN MSG$_CONFFAC | 
OOFC 00000 ADD_FACILITY: 
<WORD Save R2,R3,R4,R5,R6,R7 5 1444 
57 000000006 8F D0 00002 MOVL § #MSG$_CONFFAC. : 
56 0000' CF 9€ 00009 MOVAB FACILITY HEADER® PREV + 1472 
54 66 DO 0000E MOVL (PREV), PTR + 1473 
55 04 AC DO 00011 MOVL FAC, RS > 1478) 
54 D5 00015 1$ TSTL PTR + 1475 | 
OF 13 00017 BEQL = 2$ : | 
04 AS 04 A& B1 00019 CMPW =s-« & (PTR), 4(RS) t 1478 | 
08 1€ OOO1E BGEQU 2 : 
56 54 D0 90020 MOVL PTR, PREV + 1481 
54 64 DO 00023 MOVL (PTR), PTR + 1482 
ED 11 00026 BRB 1$ + 1475 
54 d3 00028 2$: TSTL PTR 3 1485, 
38 13 0002A BEQL 4$ ; 
04 AS 06 AG Bi 900¢¢ CMPW = & (PTR), 4(RS5) + 1486. 
31 12 00031 BNEQ 4$ : 
06 AS 9A 00033 MOVZBL 6(R5), R1 + 1489 
50 06 AS 9A 00037 MOVZBL 6(PTR), RO t 1490 
50 00 07 «AS 51 2D 0003B CMPCS R1, 7(R5), #0, RO, 7(PTR) : 
07 «AG 00041 : 
1B 13 00043 BEQL 46s 3$ : 
04 AS B5 00045 TSTW = &( RS) : 1492 | 
16 13 00048 BEQL 3$ ; 
07 A&G 9F O004A PUSHAB 7(PTR) > 1497 | 
7 06 A& 9A 00040 MOVZBL 6(PTR), -(SP) : 
7E 04 AS 3C 00051 MOVZ2WL 4(R5), =(SP) : 
57 DD 00055 USHL  R7 : 
0000' CF 9F 00057 PUSHAB TPARSE_BLOCK + 1494 
00006 CF 05 FB 00058 CALLS #5, SYNTAX_ERROR + 1497 
50 57 DO 00060 3$: MOVL 7. RO : 1498 
04 00063 RET ; 
65 $6 og 00064 4$: MOVL (PREV), (RS) > 1501. 
a DO 00067 MOVL RS, (PREV) : 1502 
50 01 DO 0006A MOVL #1, RO > 1504 
04 0006D RET : 1506 


| 
; Routine Size: 110 bytes, Routine Base: $CODES + 066D | 
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ROUTINE add_symbol (name_desc, value) = 


oOo 


AUF WN =O OONAUES WN OO OONAUE WN —“OCONOULS WN O00 


This routine adds a given symbol name and value to 
the symbol table. 


i Inputs: 


value = Value to be assigned to the symbol 


' 
' 
' 
! 
' 
1 
: 
} name desc = Address of descriptor of symbol name 
! 
Outputs: 

! 

1 


r0 = status (already signaled) 


DBNAARAN=OSRIS APN OOB IRAE ODO SO IRD 


04 
g 3 1 1 
3 7 1 1 
3 1509 1 
3; 7 1510 1! 
3 7 Tot) 3 
3 3 1512 1 
3 3 1513 1 
3 3 1514 1 
3 3 151 1 
3 1 1516 1 
; (1 1517 1 
3 13 1 
3s 7 151 1 
3 1 15 1 
3 1 15 1! 
3; 7 15 1 
3 1 15 1 
3 1 15 BEGIN 
3; 1 15 
3 13 152 MAP 
3 i 136 2 name_desc: REF VECTOR; ! Address of name descriptor 
3s 15 136 : LOCAL 
3 13 15 entry: REF BBLOCK, ! Address of symbol table entry 
; i 133 § status; 
3 13 1533 2 IF lookup_symbol (.name_desc, status) ! If already in symbl table, 
3 13 153 ¢ THEN 
; 3) 153 BEGIN 
3 131 1536 3 proton crrer<tparss bieckensgthupsya)): 
3; 131 1537 3 RETURN emsg(dupsym); ! return duplicate symbol 
tees! © lad 
3; 131 154 i IF .mame_desc [0] GTRU obj$c_symsiz ! If symbol Length GTR max, 
3; 131 1541 2 THEN 
3 13 136 § name_desc (0) = obj$c_symsiz; ! then truncate it 
3 13)? 9 status = allocate(sym$c_length,entry); ! Allocate a symbol entry 
3 1321 154 IF NOT .status ! If could not allocate storage, 
s 13 ¢ 1547 THEN 
; i 1548 BEGIN 
: 1324 1549 7 5h lie ch ha ceri : : 
3 1352 1550 RETURN .status; ! return with status (already signaled) 
3 15 $ 1551 END; 
3; 132 1326 
: 1328 155 entry Csym$l_value] = .value; ' Set value of symbol 
3 1362 1554 entry Csym$b_symlen] = .mame_desc (0); ! Set length of symbol 
3 13% 132? CHSMOVE(.mame_desc [0], .name_desc C14, entry Csym$t_symbol]); 
; 1382 1383 entry Csym$l_link] = .symbol_header; ! Link into front of symbol table List 
3; 133 1558 symbol_header = .entry; 
3 1 $e 1559 
3; 1335 1560 RETURN true; 
3 1339 1561 
2 1 1562 END; 


atl 


13 
e 9 


; Routine Size: 115 bytes, Routine Base: $CODE$ + 06D0B 


PARS PARSE THE MESSAGE SOURCE FILE 16-Sep-1984 VAX-11 Bliss-32 V4.0-742 Page 65. PAS 
V04= 14- ~3007} 387 95:02 DISKSVMSMASTER: TCMSGFIL.SRCIPARSE.B32: 1° 13} VOé 
+ 
-EXTRN MSG$_DUPSYM : } 
OOFC 00000 ADD_SYMBOL: 3} 
. WORD @ R2,R3,R4,R5,R6,R7 : 1507 :] 
57 000000006 8F 09 9000 MOVL pases DUPSYM, R7- : | 3} 
5E 98 C2 0000 SUBL2 #8, SP : | : 1 
E DD 0000C PUSHL SP + 1533 : 1 
52 04 AC 00 000E MOVL  NAME_DESC, R2 ; : | 
52 DD 0001 PUSHL : : 1 
0000v cr : F 0014 CALLS H F  LQOKUP_SYMBOL F :] 
F E 19 BLBC : : 1 
57 DD OO0CIC PUSHL 3 1536) : ] 
0000" CF 9F 0001 PUSHAB TPARSE_BLOCK : 1 
00006 CF 0@ FB 000 CALLS a3. SYNTAX_ERROR : 31 
50 57 DO 000 MOVL R7, RO : 1537 3 | 
04 0002A RET : | 31 
1F 62 D1 00028 1$: CMPL (R2), #31 + 1540 31 
03 1B 000¢E BLEQU 2$ : 31 
62 1F D0 00030 MOVL #31, (R2) + 1542 3 1 
04 AE 9F 00033 28: PUSHAB ENTRY > 1544, 31 
28 0D 00036 PUSHL #40 : 31 
0000v CF 02 FB 00038 CALLS #2, ALLOCATE : 21 
6E 50 DO 0003D MOVL TATY us : “eS 
OF 6— £8 00040 BLBS STATU + 1546 71 
6E DD 00043 PUSHL STAT US’ + 1549) 
0000" CF 9F 00045 PUSHAB TPARSE_GLOCK : | 
00006 CF 02 FB 00049 CALLS #2, SYRTAX _ERROR 3 
50 6E DO 0004E MOVL STATU : 1550) 
04 00057 RET : | 
56 04 AE 00 00052 3$: MOVL ENTRY, R6 : 1553 
06 Ab 08 AC dO 00056 MOVL VALUE, 4(R6) ; 
08 Ab 62 90 00058 MOVB (R2), 8¢ > 1554 
09 «Ab 04 &B2 62 28 0005F MOVC3 (R2), a4(R2), 9(R6) : 1555 
66 0000' CF D0 00065 MOVL SYMBOL HEADER, (R6) : 1557 
0000" CF 56 DO 0006A MOVL SYMBOL _HEADER : 1558 
50 01 DO 0006F MOVL ne RO : 1560 
04 00072 RET : 1562 
| 
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PARSE THE MESSAGE SOURCE FILE 


This routine looks up a 
table and returns the value associated with 


i Inputs: 


iven symbol in the sees 


t. 


mame_desc = Descriptor of desired symbol name 
value = Address of longword to receive value if found 


i Outputs: 


value = Value of symbol if found 


r0 = status 
name_desc: REF VECTOR; 


LOCAL 


REF BBLOCK; 
= .symbol_header; 


ptr: 


haa ptr NEQ 0 


BEGIN 
IF CHSEQL(.ptr Csym$b_s 


“1984 02:05:14  VAX=11 BLiss-32_v4.0-742 Page 66 
pn1986 15:46:23 DI SKSVMSMASTERSCMSGF IL -SRCIPARSE 832599" (1 


! Address of descriptor 


' Pointer into list 


! Start at first entry 
! Until end of List 


mlen], ptr Csynét synbolJ. 


-name_desc [0], .name_desc [1] 
BEGIN 
-value = .ptr Csym$l_value]; ! Return value of symbol 
~S aa true; ! and exit successful 


tr = .ptr Csym$l_Link); 
END: : wit 


RETURN false; 


54 0000" 

55 04 

50 08 
09 =A 


Vip Vir oe 
ofofon 


! If no match, go to next entry 


' return symbol not {.und 


003C 00000 LOOKUP_SYMBOL : 
oW RD 


0 
pe 0000 MOVL 
DO 0000 MOVL 
b 000B 1$ TSTL 
13 00000 BEQL 
9A QOOOF ph 
2d 00013 CMPC 


PTR) 
- 96 


<v 
<4 


a 


RO 
PTR), #0, @NAME_DESC, @4(R5) 
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47 bytes, Routine Base: S$CODE$ + O74E 


; Routine Size: 


13 
THE MESSAGE SOURCE FILE 18-Se 1984 02:05:14 VA V4.0-742 P 8 
14 ty 7 93:88:28 I c CMSGF IL. SRCIPARSE.B32:1°" (15) 


: i 84 1607 ROUTINE find_eos = 
: 1 86 1609 1 !=-- 
; 138 1610 1! 
>; 1388 1611 1! This action routine finds the end of the wessege text string. 
; 1389 1oi¢ Ee It uses the first character of the token (tpa$l_char) as the 
3; 1390 161 1} string terminator = other routines may place a Specific 
>; 1391 1614 1! terminator in tpa$l_char and call this routine. The descriptor 
: : M 19)2 : of the message text is stored away. 
: 1394 1813 1 | Inputs: 
3; 1395 1918 7s 
: ' ae Hb 2 : } tpa$l_char = String terminator 
: 1398 16 1 ; Outputs: 
; e's 1 § : ; message_text = Descriptor of actual message text | 
; 1408 1625 1. | 
3; 140 1626 2 BEGIN 
: 1404 \os? 2 
: 1405 1628 BUILTIN AP,CALLG; 
3 1608 ioe? MAP ap: REF BBLOCK; 
3 | 
: 1408 163) § LOCAL p; ! Temporary string pointer 
: 1410 1838 2 p = CHSFIND_CH(.ap Ctpa$l_stringcnt], .ap Ctpa$l_stringptr], .ap Ctpa$l_char]); | 
: 1o1) te 2 en? EQL 0 ! If terminator not found, 
: 1218 1636 5 RETURN false; ! then return syntax error 
: 1415 1638 $ ap (tpa$l_tokencnt] = .p -_.ap Ctpa$l_stringptrd; 
3 1416 1639 2 ap [tpa$l“tokenptr) = .ap Ctpa$l_stringptrd; 
3 1417 1640 2 ap ([tpa$l_stringcnt] = .ap Ctpa$l_strinacntd - (.ap Ctpa$l_tokencntJ+1); 
: ais 19) § ap Ctpa$l-stringptr] = .ap Ctpa$ltokenpiri + (.ap Ctpa$l_fokencnt)+1); | 
: 1420 1868 2 ap (tpa$l_param] = PLIT(message_text,0,message_bufsiz); 
: 108) He} § CALLG(.ap, store_string) ' Call’store string with tparse_block | 
; 1258 1646 1 END; 
| 
.PSECT SPLITS,NOWRT,NOEXE ,2 | 
00000003 0010C -LONG #3. : 
00000000° 00110 P.AAX: .ADDRESS MESSAGE_TEXT 2 
00000100 00000000 00114 -LONG 0, 256 : 
-PSECT SCODES,NOWRT,2 | 
0000 00000 FIND_EOS: 
«WORD Save nothing > 1607 | 
oc =«=«BC 08 Ac 18 AC 3A 00002 LOCC 24(AP), B(AP), a12(AP) : 1633) 
02 12 00009 BNEQ 1$ : 


| 
| 
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65 bytes, Routine Base: S$CODE$ + 077P 
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PARSE THE MESSAGE SOURCE FILE 15-Sep-1984 96:03:18 VAX=-11 Bliss- 
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ROUTINE find_endvers = 
lee 
This routine finds the end of the version (.IDENT) text string. 
It uses the first character of the token (tpa$l_char) as the 
string terminator. The descriptor of the ident string is stored. 
Inputs: 
tpa$l_char -- string terminator 
Outputs: 


version_num == descriptor of version string 


ee ee 


BEGIN 


BUILTIN AP, CALLG; 
MAP ap: REF BBLOCK; 


LOCAL p; temporary string pointer 
p = CHSFIND_CH(.ap(tpa$l_stringcnt], .apCtpa$l_stringptr], .apCtpa$l_char]); 
IF .p EQ. 0 ! If terminator not found... 

RETURN FALSE; ! then signal syntax error 

ap C(tpa$l_tokencnt) = .p -_.ap Ctpa$l_stringptrd; 

ap Etpastctokenptrd r “Op Ctpa$l Stringptrds. 

ap [tpa$l_stringcnt) = .ap Ctpast_stringcnt - (.ap Ctpa$l_tokencnt]+1); 
ap [tpa$l_stringptr] = .ap Ctpa$l_tokenptr] + (.ap Ctpa$l_fokencntJ+1); 


ap [tpa$l_param] = PLIT(version_num,0 obj$c_symsiz); 


CALLG(.ap, store_string) ' call store string with tparse_block 
END; 


=PIPIPYIPNYNINYNINININININPININIPININPININIDYD 2 9 SS 
“~ 


-PSECT SPLITS,NOWRT ,NOEXE,2 


00000003 0011¢ -LONG 3 
00000000" 00120 P.AAY: .ADDRESS VERSION_NUM 
00000000 00124 -LONG 0, 31 


0000001F 


-PSECT S$CODES,NOWRT,2 
0009 00000 FIND_ENDVERS: 


. Sa 
BC 08 AC 18 AC 3A 6000 LOCC 24 
02 12 0000 BNEQ 1$ 


e ping 
AP), 8(AP), @12(AP) 


STER: CMSGFIL.SRCIPARSE .B32; 
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Routine Base: S$CODE$ + O7BE 


65 bytes, 


; Routine Size: 


SS lta ne ERE | — 


PARSE 
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THE MESSAGE SOURCE FILE 16-Sep-1984 02:05:14 VAX-11 Bliss-32_ V4.0-742 Page 72 
10238871 $8e 93:08:28 DISKSVMSMAS TER: CMSGFIL. SRCJPARSE .B32; 1° (17) 


; 1466 1687 1 ROUTINE get_cont_line = | : 
3 146 1688 1 ; 
; 1468 1689 1 !<-- ; 
; 1o92 1690 1! ‘ 
; 1470 1691 1! This routine is called as an action routine if ‘ 
; 1471 1638 1} a dash (=) is the Last token on the Line before ‘ 
3 \ole 1695 1! a comment or end of Line. The next record is ‘ 
: 147 1694 1! retrieved and the tparse block is updated so that ‘ 
> 1474 1695 1! parsing continues with the continuation Line. ‘ 
: 1475 1996 7 | : 
> 1476 1697 1 ! Inputs: : 
3 1477 1698 1! : 
> 1478 1699 1! ap = tparse block : 
: 1479 1700 1! : 
; 1480 1701 1 ! Outputs: ; 
; 1481 1786 +} ; : 
3 eRe 1703 1! tparse block is updated ° 
; 148 1704 1 !-- : 
> 1484 1705 (1 ; 
>; 1485 1706 BEGIN ; 
: 1486 1707 : 
: 1487 1708 BUILTIN ; 
: 1488 1709 AP; ! Address of tparse block : 
; 1489 1710 : 
; 1490 1711 MAP : 
3 1491 ar AP: REF BBLOCK; ! Address as structure | : 
: re 171 : 
3; 149 1714 2 LOCAL : 
3 1494 1715 count, : Count of characters passed over ; 
; 1495 1716 status; ! status code ; 
3; 1496 1717 é ‘ 
3: 1497 1718 IF NOT .Line_output ! If Line not yet output, 

>; 1498 1719 THEN 

; 4 730 echo_record(); ! then echo the input record 

; 1501 ise § status = get_record(); ' Get next record from input stream | 

3 1208 17 IF NOT .status ! If error detected, 

: 150 1724 THEN 

; 1504 1725 RETURN .status; ! return with status | 

3 1505 1756 . A 

; 1506 1727 ap ([tpa$l_stringcnt] = .input_record (0); 

: 1507 1728 2 ap Ctpa$l=stringptr) = .input=record [1]; | 

: 1508 1729 

; 1509 1730 RETURN true; 

; 1510 1731 

3 1511 1732. 1 = END; 


0000 00000 GET_CONT_LINE 
»WORD 


Save nothing 3 1987 
05 0000" cF €8 9002 BLBS = LINE_OUTPUT, 1$ : 1718 
F 00 FB 0000 CALLS #0, ECHO_RECORD : 1720 
90 FB 0000C 1$: CALLS 40, GET _RECORD : 17 é 

0 €9 00011 BLBC STATUS,~2 : 17 


7) 
| 
PARS PARSE THE MESSAGE SOURCE FILE b-fe Sep-1984 VAX=11 Bliss-32 v4.0-742 3. 
F0e 500 Hox 808= 1 8Be 98:88 3s PN tates eer ee capanse 032698195 
08 Ac 0000" fF 70 90014 MOVa —_INPUT_RECORD, 8(AP) 1727 

5 1 DO OOOIA MOVL =so#1. RO i 1730 

iD 28: RET {173 


; Routine Size: 30 bytes, Routine Base: S$CODES + O7FF 
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on 
oo 


new_line = true 
ELSE d ! else do append comment 
nat new_line = false; 


IL. SRCIPARSE .B32; 
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PARSE THE MESSAGE SOURCE FILE 1o~3e0- 138? 9g :03: 1 VAX=11 Bliss-32 V4.0-742 
14-Sep-1984 12:46:23 DISKSVMSMASTER: CMSGF 

1733 1 ROUTINE define_literal = 

1734 1 

7 5 Jace 

17 ° 1} This routine adds a user specified literal to the 

\" 3 : symbol table to be output in the object module. 

1740 i Inputs: 

rts 7 Literal_name = Descriptor of symbol name 

1007 ! Literal_value = Value to assign to the symbol 

rt? : Outputs: 

1747 1! Literal_value has been automatically incremented by one 

18 : to provide default for next Literal parameter. 

1750 1_ 

He} ; BEGIN 

1983 BUILTIN 

1720 AP; ! Address of tparse block 

1756 LOCAL 

1757 status; 

188 8 we 

1769 ; ap: REF BBLOCK; 

176¢ § ol we add_symbol (literal_name, .literal_value) ! add to symbol table 

1768 § RETURN true; ! return, error already signaled 

1766 § IF .cli_flags Cqual_mdl) ! If /MDL specified, then define a constant 

1767 3 THEN BEGIN : ; 

1768 3 status = mdl_define_constant (literal name, Literal value, literal_flag, tparse_block); 

6 4 ; ie? Ctpa$T_stringcnt] NEQ 0 ' Still a comment left in record 

44 : 4 - -Status ! If error on return, don't append comment 

1598 3 new_line = true 

1774 ; ELSE } ! else do append comment 

1775 new_line = false; 

1778 END; 

1778 IF .cli_flags Cqual_sdlJ ! If /SOL specified, then define a constant 

1779 THEN BEGIN ; : 

1780 status = sdl_define_constant (Literal name, literal_value, literal_flag, tparse_block); 

7 1 If sa? Ctpa$T_stringcnt] NEQ 0 ' Still a comment left in record 

17 : IF NOT .status ! If error on return, don't append comment 

1784 THEN 

He 

Hi 

1789 3 
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: 1371 1730 literal_value = .literal_value + 1; ! Autoincrement for next symbol 
: 157 179 RETURN true; 
; 157 1598 
3: 1574 1794 1 END; 
0004 00000 DEFINE_LITERAL: 
«WORD Save R2 
52 0000' CF 9E 00008 OVAB LITERAL_VALUE, R2 
6 DD 0000 PUSHL LITERAL_VALUE 
F8 A 9F 00009 PUSHAB HD ADTs NAME 
FEAD CF 9 F 000C CALLS #2, ADD-SYMBOL 
50 E9 00011 BLBC Rg. 5$ ~ 
21 0000G CF 03 ft 00014 BC #3, CLI_FLAGS, 2$ 
FDF8 ce F QOO1A PUSHAB TPARSE_BLOCK 
D4 OOOIE LRL -(SP) 
52 DD 00020 PUSHL R2 
F8 A 9F 000 ¢ PUSHAB LITERAL 
0000G CF 04 FB 000 CALLS #4, MDL_DEF INE_CONSTANT 
08 AC D5 0002A TSTL 8( AP) 
0c 13 0002D BEQL 2s 
06 50 £8 0002F BLBS STATUS, 1$ 
08 A2 01 dO 00032 MOVL #1, NEW_LINE 
03 11 00036 BRE 2s 
08 A2 04 00038 1$: CLRL NEW_LINE 
21 0000G CF 04 3 00038 2$: BBC #4,°CLI_FLAGS, 4$ 
FOF8 C2 9F 00041 PUSHAB TPARSE_BLOCK 
7 D4 00045 CLRL -(SP) 
5 DD 00047 PUSHL R2 
F8 A 9F 00049 PUSHAB LITERAL_NAME 
0000G CF 04 FB Baes CALLS ba. SDL ~DEF INE _CONSTANT 
08 AC 05 00051 TSTL 8( AP) 
oc 13 sete BEQL 
06 50 €8 00056 BLBS STATUS, 3$ 
08 A2 01 00 00059 MOVL #1, NEW_ LINE 
03 11 0005D BRA 4$- 
08 a D4 OOOSF 3$: CLRL NEW_LINE 
6 D6 00062 4$: INCL LIT TERAL VALUE 
50 01 DO 00064 5$: MOVL #1, RO” 
04 00067 RET 


; Routine Size: 104 bytes, Routine Base: S$CODE$ + 0810 
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v04- 14-Sep-1984 12:46:23 
ROUTINE set_title = 


This routine saves the string from the current position 
to the end of the Line as the Listing title. 


Wr Oo 


Inputs: 
tpa$l_tokenptr = Address of start of title string 
Outputs: 


OONAW 


title_text = Descriptor of title text 


COCWPCOCDCOOCOCOOCOODOCON NIN 


BEGIN | 


BUILTIN 
AP,CALLG; 


MAP 
AP: REF BBLOCK; ! Address of tparse block 


ap [tpa$l_tokencnt] = toque record [1] + .input_record [0] - 


ONOUSWNR— 


OOOODOO0O0O 
3 MOOD DTOODOOCOOOOOODO 


COWNAVSWN OO OODNAOUS WN "OO OODVNAUSWWN“OVOONOUM 


SS 


-ap_Ctpa$l_tokenptr]; 
ap Ctpa$l_stringcnt] = 0; ! Gobble rest of Line 


oooo 
UPwn— 


ap Ctpa$i_tokenptr] = .input_rabCrab$l_rbf] + ! Maintain case of title as entered. 
-ap(tpa$l_tokenptr] - Tinput_record (1); 


ap Ctpa$l_param] = ed baleen uidaiietale’ of {igh ! Place to store text 


CALLG(.ap;store_string) all store string and save it 


END; 
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~PSECT S$PLITS,NOWRT,NOEXE,2 


00000003 C -LONG 3 
00000000" O P.AAZ: .ADDRESS TITLE_TEXT : 
00000080 00000000 -LONG 0, 128 : 


.PSECT $CODES,NOWRT,2 | 
0000 00000 SET_TITLE: | 


WOR Save nothing ; 1795) 

50 0000" cF 0000" CF C1 00002 ADDL NPUT_RECORD, INPUT_RECORD+4, RO : 1819 

10 AC 50 14 AC C3 OO00A SUBL OCAPT, RO, 16(AP) : 1820 
08 AC D4 0019 CLRL (AP) : 182) 

50 00006 cf 14 AC C1 0001 ADDL3 20(AP), INPUT_RAB+40, RO > 1824 

16 AC 0 0000' CF 3 OO1A SUBL INPUT RECORD +S, RO, 20(AP) j 

20 AC 0000' CF 9E 00¢1 MOVAB P.AAZ> 32(AP) + 1826 

0000v CF 6C FA 7 CALLG (AP), STORE_STRING > 1827 


vo4=800 pore manna teamed ta HEReocH9BE 95:05:5$  YARCLIWBMMSHER2hhePG7“Encapanse.osoh¥" 18) 
9 


04 0002C RET ; 182 


<u 
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; Routine Size: 45 bytes, Routine Base: $CODES + 0885 
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ROUTINE set_module = 


i 
This routine saves the current token as the module name. 
| 


i Inputs: 
tpa$l_tokenptr = Descriptor of module name 


WAN AWAIANAG 
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! 
' 
' 
' 
' 
Outputs: 

module_name = Descriptor of module name 


BEGIN 

BUILTIN AP,CALLG; 
MAP AP: REF BBLOCK; ! Address of tparse block 
module_name [1] = module_buffer ' Set address of buffer 

ap (tpaSl_param] = PLIT (module pene, t. obj $c_ symsiz); ! Place to store text 
CALLG(. ap store_string) 1 Call store string and save it 
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-PSECT $PLITS,NOWRT,NOEXE,2 


00000003 0013C -LONG 3 3 

000000006 00140 P.ABA: .ADDRESS MODULE_NAME $ 

0000001F 00000001 00144 -LONG 1, 31 3 

0000 00060 SET_MODULE: 

-WORD Save nothin : 1830 
0000G CF 0000' CF 9E 00002 MOVAB MODULE_BUFFER, MODULE_NAME+4 ; 1851 
20 AC 0000" CF 9E 00009 MOVAB’ P.ABA, : 1852 
0000V CF 6C FA OOO0F CALLG (AP), STORE_STRING : 1855 
04 00014 RET : 1855 


; Routine Size: 21 bytes, Routine Base: $CODE$ + 08B2 
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| 
| 
.PSECT $CODE$,NOWRT,2 | 
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3; Routine Size: 
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VAX-11 Bliss-32 V4.0-742 


ROUTINE build_version = 


This routine builds a version or ident string for the 
message object file. 
! Inputs: 
tpa$l_tokenptr = Pointer to current version character 
Outputs: 


version_num = Descriptor of version string 


BEGIN 


BUILTIN 
AP, CALLG; 


MAP 
ap: REF BBLOCK; ! Address of tparse block 


version_num [1] = version_buffer; . 
apCtpa$l_param] = PLIT (version_num,0,obj$c_symsiz); 
CALLG(.ap,store_string); 

RETURN true; 


END; 


~-PSECT SPLITS,NOWRT ,NOEXE,2 


00000003 0014¢ -LONG 3 
00000000" 00150 P.ABB: .ADDRESS VERSION_NUM 
00000000 00154 -LONG 0, 31 


0000001F 
-PSECT SCODE$,NOWRT,2 
0000 00000 BUILD_VERSION: 
~ WORD Save nothin 
0000° CF 0000" CF 9€ 00002 MOVAB VERSION_BUFFER, VERSION_NUM+4 
20 = AC 0000° CF 9E 00009 MOVAB’ P.ABB, (AP 
0000V CF 6C FA QOOOF CALLG (AP), STORE_STRING 
50 01 00 00014 MOVL #1, RO 
04 00017 RET 


24 bytes, Routine Base: $CODES + 08C7 
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I . 
ROUTINE store_number = 


This routine stores the numeric value of a qualifier 
into a spre ye tee Location as long as it is within 
certain limits. If not, a syntax error is signaled. 


Inputs: 


' 
i 
i 
: tpa$l_number = Number to be_ stored 

; tpa$l_param = Address of a 3-longword argument List: 

! 1) Address of longword to receive value 
; ) Minimum legal value (unsigned) 

: ) Maximum legal value (unsigned) 

; If 2nd and 3rd arguments are not specified, no 
checking will be done. 

: 

: 


Outputs: 
Either the number is stored or an error is signaled. 


BEGIN 
BUILTIN 
AP; ! Register AP 
MAP 
AP: REF BBLOCK; ! Define TPARSE block format 
LOCAL 
args: REF VECTOR, ! Address of argument List 
value; ! Value of expression 


Get address of arguments 
(PLIT value is addr of FIRST arg) 


Get value : 

If 2nd, 3rd args specified, 
If less than minimum 

or greater than maximum, 


args = .ap (tpa$l_param]-4; 


value =. B Cipet) mmberd: 
IF .args (CO) GEQ 2 

THEN IF .value LSSU .args §¢ 
a. -value GTRU .args (3) 


RETURN(syntax_error(.ap,emsg(badvalue))); ! then signal illegal value 


-args (1) = .value; ! Store value into Longword 
RETURN true; 


END; 


=PNIPININIPIMONININININININININININININNININININININD 2 9 9 SS SS 
“~ 


.EXTRN MSG$_BADVALUE 


000C 00000 STORE _NUMBER: 
-WORD Save R2,R3 


Pp 
RCIPARSE .B3204 7" (29 


a 


; 1887 


0 } 
) 


| 
| 
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y0e-000 14- ~8ep-1984 95:03 6:23 DISKSVMSMASTER:CMSGFIL.SRCIJPARSE. B32. 7 oe 8 
52 20 AC 04 ¢3 00002 SUBL3 #4, 32(AP), ARGS : 1922 
q 1C aC DO 9900 MOVL 28(AP), VALUE + 1925 
02 62 D1 00008 CMPL (ARGS), + 1926 
1A 19 90008 BLSS = 2$ i 
08 A2 53 D1 0001 CMPL =~ VALUE, 8(ARGS) : 1927 
06 1F 00014 BLSSU ; 
OC A2 D1 00016 CMPL =~ VALUE, 12(ARGS) : 1928 
OE 1B OOO1A BLEQU 2$ : 
000000006 8F DD 0001C 1$: PUSHL #MSG$_BADVALUE + 1930 
5C DD 00022 PUSHL : 
0000G CF 02 FB 00024 CALLS #2, SYNTAX_ERROR s 
04 999 9 RET : 
04 B2 53 DO O002A 2$: MOVL VALUE, @4(ARGS) : 
50 01 DO 999 E MOVL #1, RO : 
04 00031 RET ; 


; Routine Size: 50 bytes, Routine Base: S$CODES + O8DF 
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IL. SRCIPARSE .B32: 1° 5 
ROUTINE store_string = 
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This routine stores the eteeny value of a qualifier 
into a specified location as long as the length is within 
certain limits. If not, a syntax error is signaled. 


SANGIN NS 


Inputs: 


tpa$l_tokencnt/ptr = String_to be stored 
tpa$l_param = Address of a 3=longword argument list: | | 
1) Address of descriptor were the string 
Length is stored in the first longword ' 
and the second longword is the place to 
store the string. , 
$} Minimum legal length (unsigned) 
) Maximum Legal Length (unsigned) 


Outputs: 
Either the string is stored or an error is signaled. 


BEGIN 
BUILTIN 
AP; 


Register AP 


= 


AP: REF BBLOCK; 


aw 
ba 
a 
w 
DD 
mm 
“wT 
<< 
mm 
O° 
44 
oo 
DD 
>* * 


! Address of argument List 
! Address of descriptor 
! Length of string 


- 
® 
au 

or 
o 
> 
ee. 


Get address of arguments 


args = .ap Ctpa$l_param)-4; 
(PLIT value is addr of FIRST arg) 


WR =O CONAWNE WN 0 OONOAU EWN O OONOAUEWN OO OONOUS WIN 


oa “ PIPPIN ES EEE 


Get_ length 


OWONAUE WN $$ O ODNAU EWN — O OONOAOULS WO CONAUEWWNO 


Length = re Ctpa$l_tokencnt); 
C0) GE 
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Define TPARSE block format 
| 


ed aed el ee ei a ee a ce ee ee ee le a ed ee le cc a cc cl lc ce ec ce cl ce el ch cl ce ee el ee ee ee ee 
atotiatiuicdiabababaiubababababeababababsbabmBiabababiabababaiuiabubabababubebiabubabubababubabah aD abababa adalat 
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4 - 
oO 
oO 
LS 
~ 


i] 
76 IF .args ' If 2nd, 3rd orgs specified, 
764 THEN IF length LSSU .args ei ' If less than minimum 
103 ? . -length GTRU .args C ! or greater than maximum, 
por 4 RETURN(syntax_error(.ap,emsg(symtoolng))); ! then signal illegal value | 
769 84 dest = .args C1); ! Get address to store descriptor 
770 85 dest (0) = “2p spent tokencnt); ! Store descriptor into quadword 
yet i, CHSMOVE(.ap Ctpa$l_tokencnt], .ap [tpa$l_tokenptr], .dest (1]); | 
+8 88 2 RETURN true; 
774 89 
775 90 END; 


pans PARSe THE MESSAGE SOURCE FILE 

52 20 ac 

5 10 
02 
08 A2 
OC A2 

000000006 
0000G CF 

50 04 

60 10 

04 80 14 «BC 10 
50 
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; Routine Size: 61 bytes, Routine Base: S$CODE$S + 091 


LENGTH, 8(ARGS) 

ENGTH, 12(ARGS) 
onaes. SYMTOOLNG 

#2, SYNTAX_ERROR 
ienate pest, 


16¢ it 
16(AP) a2OCAP), 
#1, RO 


1 Bliss. 32 V4.0-742 
VMSMASTER: CMSGFIL. SRCJPARSE. B3264 


wie 


PARSE THE MESSAGE SOURCE FILE 


3; 1777 1991 1 

: 1778 1338 1 

3; 1779 1995 1 !e<<- 

; 1780 1994 1! 

: 1781 1995 1! 

; 1786 1238 1 

; 178 1997 1! 

3 17Re 1998 1 ! Inputs: 

: 1785 1999 1 

: 1786 000 1 

3; 1787 001 1 

: 1788 002 1! 

3; 1789 005 1 ! Outputs: 

3; 1790 004 1 

3 1791 005 1 address = 

: 16 006 1 !-- 

3; 179 007 #1 

3: 1794 008 BEGIN 

3 1795 009 

3; 1796 010 LOCAL 

: 1797 011 status; 

: 1798 soig 

3; 1799 01 

; 1800 014 

: 1801 015 IF NOT .status 

; 1S 2016 § T 

3; 180 2017 SIGNAL(.status); 

: 1804 2018 2 

3; 1805 2019 2 RETURN .status; 

: 1806 2020 2 

; 1807 2021 1 END; 

00000000G 00 
52 
09 
00000000G 00 

50 


WMOMNMIMO >} \& 
M—MNNONMOO 


; Routine Size: 34 bytes, Routine Base: 


Allocate dynamic storage and return the address. 
If an error occurs, the error is signaled. 


' 

! 

! 

' 

' 

; bytes = Number of bytes to allocate 
address = Longword to receive address of storage 
' 

' 

' 

' 


Address of storage 


status = Lib$Sget_vm(bytes,.address); 


! if unsuccessful, 


! then signal the error 


' return with status; 


0004 00000 -ENTRY 
DD 00002 PUSHL 
9F 00005 PUSHAB 
FB 00008 CALLS 
DO OO00F MOVL 
E8 Bante BLBS 
DD 0001 PUSHL 
Fe 00017 CALLS 
DO OOOIE 1$ MOVL 
04 00021 RET 


SCODES + 094E 


RCJPARSE .B32; 


ALLOCATE, Save R2 
DRESS 

BYTES 

#2, LIBSGET_VM 

RO, STATUS 


STATUS 
4 LIBS$S1GNAL 


Sete Se Se Ge Se Se Se Be te 
Be Se Se Be Oe Oe Be Se Se Se Se Se Se Se Se Se Ge Se Se Se Fe Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se S- Se Se Se ee ee Fe Se Se Sean Beas tease teas 


“a ate + ] 


' SS eee edt Slit ce aed OT ee ee ee ee ee ee ae ; a ‘ A | 
| K 14 
PARS PARSE THE MESSAGE SOURCE FILE 16-Sep-1984 95:03:38 VAX=11 Bliss-32_V4.0-742 Page 3 
V04 14-Sep-1984 12:46:23 DISKSVMSMASTER:CMSGFIL.SRCIJPARSE.B32;1 (25) 


So 


WN —OOONOULSWN—O”O 


GLOBAL ROUTINE deallocate (bytes, address) = 


an error occurs, the error is signaled. 
Inputs: 


bytes = Number of bytes to deallocate 


Deallocate dynamic storage. 

i 

address = Address of storage to deallocate 

i 
in 


Outputs: 


Mmrororosrororororrorrrr 
IWMI. AI ANAIWIWnonororororornorn 


MTN 2 3 2 
OOCooooooooo0o0o 


None 


BEGIN 


LOCAL 
status; 


status = Lib$Sfree_vm(bytes.address); 


, tek tt et ee tek hk 
MO ODNAOULS WN 0 ODNAUE WN" OOODNOUS UN 


If NOT .status ! if unsuccessful, 

SIGNAL(.status); ! then signal the error 

RETURN .status; ' return with status; 
| 


WAWIAWwwrrnrereonen 


Se Ge Oe Oe Se Oe Be Se Ge Oe Se Se Be FSF SF OF Se Se Se Se SESH Se Se Se Se Se Seese 
a dd 
DWNAVULSWN —OOONOUS 


Www 
oO 


POPPONOPONINONNUNUNNONY 2 
se . 


MNNoNoNonononoponofronoronononys 


Mn & & 


END; 


00 -ENTRY DEALLOCATE, Save R2 
66 ADDRESS 
000000006 98 
9 


000000006 


Moe Ov 
MOVWWVIO } }& 
M—MNONOO 


#1, 
1$: MOVL STATUS, RO 


0 


; Routine Size: 34 bytes, Routine Base: S$CODE$ + 0970 


ouomMOomMmonwovoo 


fowmvwog nn & 
COOoCoooooooo 


14 
PARSE THE MESSAGE SOURCE FILE 18-S6 
e 


Inputs: 


Outputs: 


comment_desc: 


RETURN true; 


>; 1841 053 «1 

3 1 tg 054 «1 

>; 184 055 1 !<=- 

> 1844 829 1! 

3 a 057 1! 

: 1846 058 1! 

: 1847 059 1! 

; 1848 060 1! 

: 1849 061 1! 

; 1850 066 2 

: 1851 063 1! 

3 1828 064 1! 

; 185 065 1! 

3 Ht 066 1! 

; 1855 067 1! 

; 1856 068 1 !--- 

; 1857 069 1 

; 1858 070 § BEGIN 

: 1859 071 

; 1860 444 2 LOCA 

; 1861 2073 2 

3; 186 sore 

3 186 075 

> 1864 2076 

>; 1865 2077 2 TH 

> 1866 2078 

3: 1867 2079 

: 1868 2080 

3: 1869 2081 2 

: 1870 so8e 2 

3; 1871 208 

3 1374 2084 T 

3; 187 2085 

: 1874 sons 2 

3; 1875 087 2 

: 1876 2088 2iIF. 

3; 1877 2089 § THEN 

3; 1878 2090 

: 1879 2091 

3; 1880 spae 

: 198) $032 new_line 

3 1888 $098 

3; 1884 $039 

; 1885 09 END; 
04 
24 


GLOBAL ROUTINE comment = 


ALL inputs are drawn from tparse_block. 


VECTORC2); 


IF ( NOT .cli_flags Cqual_mdl) ) AND 
( NOT .cli_flags Cqual_sdlj ) 


RETURN true; 


comment_desc(0) = 
comment _descl1] = .tparse_block(tpa$l_stringptr]; 


att fase Cqual_mdl) 
mdl_comment (comment_desc, 


-tparse_block(tpa$l_stringcnt]; 


new line); 


cli_flags Cqual_sdlJ 
sdl_comment (comment_desc, 


-new_line); 


true; 


000C 00000 
53 90006 CF 9E 00002 
52 0000" CF 9 it 
SH BRS 
63 4 €1 0001 
6E FOF8 = C2 5 0017 18: 


If MDL or SDL file is being generated, then output a 
comment record for the appropriate file. 


Comment descriptor 
If not generating MDL 


and aes gen TAG SDL 
then exi 


Initialize comment_desc 
Call mdl_comment with string 


Call sdl_comment with string 


Reset new comment Line indicator 


COMMENT Save R2,R3 
CLI_FLAGS, R 
mete R2 


#3. CLI_FLAGS, 1$ 


#4; CLITFLAGS. 4$ 
TPARSE_BLOCK+8, COMMENT_DESC 


-1984 02:05:14 VAX-11 Bliss-32 V4.0-742 Pa 
eats 95:08:38 DISKSVMSMASTER:CMSGFIL. SRCJPARSE.B32:1> (26). 


86 


Pp 
: MSGFIL. SRCJPARSE.B32;1" (2 


VAX=11 Ol ateaecusaeis 4 


DISKSVMSMASTE 
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PARS 
v04- 


FLAGS, 2$ 
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G 
C 
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Routine Base: S$CODE$ + 0992 


63 bytes, 


3; Routine Size: 


N 14 
PARSE THE MESSAGE SOURCE FILE 19~300°138% 96:03:38 VAX=11 Bliss=32 V4 
14-Sep-1984 12:46:23 DISKSVMSMASTER: CMS 


-. 
= 
wn 


$038 1 END 
099 0 ELUDOM 


-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 


: SGLOBALS $09 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL CON,NOPIC,ALIGN(2) 
; SOWNS % NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL CON,NOPIC,ALIGN(2) 
; SCODES 251 NOVEC,NOWRT, RD, XE,NOSHR, LCL, REL CON, NOPIC,ALIGN(2) 
; LIBSKEYOS 54 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
; “LIBSSTATES 1030 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL CON, PIC,ALIGN(1) 
; SPLITS 348 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL CON, NOPIC,ALIGN(2) 
; _LIBSKEY1$ 216 NOVEC,NOWRT, RD, EXE, SHR, LCL, RE CON, PIC,ALIGN(1) 
Library Statistics 
eocccece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBIJSTARLET.L32;1 9776 59 0 581 00:00.9 
~$255$DUA28: CSYSLIBJTPAMAC.L 32; 1 42 33 78 14 00:00.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:PARSE/OBJ=OBJ$:PARSE MSRC$:PARSE/UPDATE=(ENH$: PARSE) 
a coge + 2880 data bytes 


4 . 1: 
; Elapsed Time: 04: 
; Lines/CPU Min: 1 
; Lexemes/CPU-Min: 68 
: pe Used: 450 pages 
; Compilation Complete 


“Woo O00 
oo 


3 | 
"SRCIPARSE .B32: nit | 
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